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) No estamos para uegos ! 

CUENTAS PROVEEDORES-BANCOS-CLIENTES 
Sencillo control de cuentas separadas (cuantas quiera), con Io que eliminar& 
el problema diario de la peque#a empresa con buen movimiento (8.600 ptas. 
incluido I.V.A.) 
RECIBOS 
Programa que resuelve el mecanografiado interminable. Asociaciones, co- 
munidades, colegios, clubes, podr&n hacer los recibos normalizados con 
domiciliackn bancaria y posibilidad de correcciones. (8.300 ptas. incluido 
LV.A.) 
CLIENTES 
Datos actualizados, etiquetas correspondencia. Petici(n por 5 campos 
los resemenes (  8.600 ptas. incluido I.V.A.) 
FACTURACION 
Numeraci6n correlativa autom&tica, fecha automAtica, rest)menes 
clientes y totalizaciones (15.300 ptas. incluido I.V.A.) 
PR ESU PU ESTOS 
Presupuesto sencillamente cuanto quiera y transflSrmelo en factu- 
ra de forma sencilla. Posibilidad transformaciones y reformas. 
(18.300 ptas. incluido I.V.A.) 

LO NUESTRO ES HACER BUENAS GESTIONES 
Para AMSTRAD 8256 y 6128 
CONTROL DE ALMACEN + I.V.A. PAR4 ./,. CO - 
Sepa Io que tiene, su costo, proveedor, totales por arficulos y general. Pida cuantos ,Ste clisket,e IorMoPoADOR.RET 
resultados quiera de su explotacin, por producto, proveedor, etc., etc. (15.300 ptas. ado e Pl " g a . 
incluido I.V.A.) ta a , stlc _ a, Vie _ N.R 
OfreU_ ', garam ° precintU_, ne prese  
ci(Jn 'un Otra c y n. o deUO, etiou:" 
a, fOrmulerreii S le 
anla. 

HACEMOS PROGRAMAS A MEDIDA 

Encargos Ilamar o contactar con Juan Luis Ruiz. Tno.: 474 55 32 

31MPACTOS3 
NOVEDADES 

PEDIDOS, TELEFONO, CARTA O TELEX 
REEMBOLSO SIN GASTOS. 
ESPECIAL A COLABORADORES 
RESTO DE ESPAA 
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Primera 
" Piano 
Importantes novedades de British Soft. 
Nuevo sintetizador de voz de MHI. 

Primeros 
pesos 

Despus de aprender a manel'ar a tope los grdficos 
de/Amstrad, conocer a rondo los usos evanzados de 
/as sentencias PRINT e INPUT, es decir, de/texto, 
puede ven/rnos muy bien. 

Serie Oro 

Vive /o oventuro y ta emoci6n de/a guerra 

submarino con e/ Programa PoseidOn, 

Mr. Joystick 

Uno de los me/ores programas de acciSn 
tridimensional y de combate aEreo es Skyfax, sin la 
menor dude. Tratamos de ana//zar/o exhaust/vamente 
pare mostraros haste dOnde se puede //egar con un 
programa asL 
El Logo, gracias a lmstrod, fiche ya on lugar muy 
deflnido en los hogares de nuesfro pals; aprenderemos 
a mane/ado oracles, entre arras cases, ata secci6n de 
ANALOGO, y comenzamos con a/go de cap#el 
importancia: Qu son los variables en Logo? 

Expo/ocio 

Hemos estado mbando y admbando /a feria de/OdD 
de/86. (ueremos confaros /o que hemos visto. 

Una de/us partes fundamenta/es de/PCW es, par 
supuesto, /a impresora, /a cua/, oparte de tener 
muchos tipos de tetra, puede controlarse perfedamente 
desde e/ Me/lard Basic y desde e/ Locoscript. Aqui as 
dedmos cdmo. 

.i 
MOquina 

Exp/icamos, paso a paso, coma se construye una 
base de datos integra en /enguaje mdquina. Dada /a 
extension e ;mportancia de/tema, se ha dividido en 
dos arlicubs, pero ya en este primero podrds ver 
coma funciona. 
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A550 

I 'e q ../: 

LLEGA 
RAMB 

e la mano de la 
prestigiosa casa inglesa de software 
Ocean, y comercializado en Espaa 
par Erbe Software, los <<jugones>> de 
Amstrad ya pueden disfrutar vivien- 
do una de las aventuras mcs famo- 
sas, y fant6sticas, de la historia del 
cine: la epopeya de Rambo, feroz lu- 
chador, atleta, mcs buena que el 
pan y duro entre los duros. 
El juego es un arcade del m6s pu- 
ro estilo, todo nervios y emoci6n. Ya 
sab6is, rapidez centelleante y joys- 
tick, mucho joystick. Los gr6ficos de 
Rambo est6n muy bien hechos, aun- 
que no sea el no va m6s de los pro- 
gramas para Amstrad en este senti- 
do. 
I:rbe Saftware est6: en c/Santa En- 
gracia, 17, 6. °. Tel. (91) 44734 
Madrid. 

NOVEDADES 
DE BRITISH 
SOFT 

British Soft es una compafiia inglesa 
de software que reOne, en una espe- 
tie de conglomerado, a muchas 
arras compafiias, y han decidido sen- 
tar sus reales en nuestro pais. 
British Soft va a presentar un mon- 
t6n de novedades para Amstrad, 
Spectrum y otros microprocesadores, 
pero, concretamente en el caso de 
Amstrad, ha lanzado una serie de 
juegos, reunidos en un disco, bajo el 
epiteto comOn de <<Wosking Back- 
wards>). 
-- Dark Star: un juego gal6ctico 
en el que debemos liberar planetas 
de la tirania del imperio o alga pear. 
-- Tank Busters: guerra de tan- 
ques. Dispara o muere. 
-- Halls of the Things: encontrar 
objetos clave diseminados en un la- 
berinto, hacienda frente a un sinnO- 
mero de enemigos. 
-- On the run: a nuestro juicio, la 
estrella del paquete. Se trata de un 
juego, con unos excelentes gr6ficos, 
en el cual nos movemos a trav6s de 
un laberinto, tratando de recoger 
una serie de objetos vitales para la 
supervivencia, mientras nos defende- 
mos de feroces enemigos que nos 
atacan sin descansa. Merece la pe- 
na verlo en acci6n. 
British Soft est6 en: CWRocafel, 79, 
40-30. Tel. (965) 26 35 93. 03016 
Alicante. 

DARK STAR 
TANK BUSTERS 
ON THE RUN 
WORKING BACKWARDS!... 

DROSOFT ha 

entrado con buen pie en el mundo 
del software para Amstrad, con un 
nuevo juego, esplndido al menos en 
Io que a grcficos se refiere. 
El programa consiste en un simu- 
lador de vuelo a borL]o de un super- 
prototipo, desde el que tendr6s que 
defender tu base de los ataques ene- 
migos, tanques, artilleria... 
Finalmente habr6s de lanzarte a la 
ofensiva total. El juego dispone de 
varios niveles de dificultad, asi coma 
de distintas etapas que van sucedi6n- 
dose a medida que vamos superan- 
do las anteriores. Nuestra bienveni- 
da para DRO, ante esta nueva ini- 
ciativa de desarrollo de programas 
para Amstrad. 
DROSOI:I' est6 en: CWFundado- 
res, 3. Tel. (91) 255 31 10. Madrid. 

SINTETIZADOR DE VOZ 

MHT Ingenieros ha lanzado un sinte- 
tizador de voz compatible con los 
modelos 464, 664 y 6128 de Ams- 
trad. 
Proporciona al ordenador la posi- 
bilidad de pronunciar cualquier fra- 
se o palabra en modo directo, es de- 
cir, mediante un camando, o bien 
bajo el control de un programa. 
El software de soporte de este pe- 
rif6rico viene en cinta de cassette; sin 
embargo, no hay que alarmarse: 
MHT ha previsto que se puedan sa- 
car capias de seguridad de cinta o 
DISCO. 
El sintetizador incorpora cuatro 
nuevos comandos basados en la t6c- 
nica RSX, que pueden emplearse tan- 
to desde Basic coma desde lenguaje 
m6quina. Precio: 9.000 ptas. 
MHT Ingenieros est6 en: CWSdn- 
chez Pacheco, 78. Teldono (91) 
413 92 68. Madrid 28002. 

/coor AMSTRAD $ 



0 SE • UEDE 
EGADO 

A estas alturas de nuestra andadura pot el lenguaje Basic, no 
debe sorprenderle mucho encontrarse con un mont6n de 
instrucciones PRINT e INPUT dentro de un programa, las 
cuales van a permitirnos establecer una feliz comunicaci6n 
con nuestro Amstrad. 

amos a recordar con- 
ceptos. PRINT es la insfrucci6n mediante Jo 
cual el ,'rdenador nos habla, o meior dicho, 
nos esc ibe. 
Tras una orden PRINT nos aparecer6 en la 
pantalla un mensaie. Puede ser un nOmero, 
una cadena de caracteres, texto, o una mez- 
cla de estas cosas. El caso es que el Amstrad 
muestra en el monitor la frase, el resultado de 
cualquier c61culo num6rico o el simp6tico 
(marcianito que le hemos b:clicado nosotros. 
Y,/,¢6mo Iohace? Muy sencillo, ya que 
siempre usa el mismo sistema. Busca donde es- 
t6 colocado el cursor de textos -o cuadrado 
de color que se mueve por la pantalla- y a 
partir de alli coloca la (qarrafacla)) que le 
hayamos ordenado escribir. Y despu6s salta 
de linea y se coloca en el margen izquierdo 
de la pantalla. 
Haga una prueba. Teclee una linea seme- 
jante a: 
30 PRINT (HOLA) 
y a continuaci6n pulse RETURN. 
Vamos a ejecutar este pequeo programa. 
Escriba RUN y vuelva a pulsar RETURN. 
;.Qu6 ha sucedido? Despus de presio- 
nor RETURN el cursor ha saltado de linea y 
se ha colocado en la porte izquierda de la pan- 
talla. 
Y justamente alli es donde nos escribe la pa- 
labra HOLA, o cualquier otro mensaje si 
queremos ser m6s comunicativos. A continua- 
ci6n vuelve a saltar de linea y a colocarse en 
el limite de la pantalla para imprimir ahora 
(READY y repetir el proceso del salto de li- 
nea de escritura y retroceso al marg.en izquier- 
do dejando alli colocado el cursor de textos. 
Esta mec6nica es sencilla,/,verdad? Va- 
mos a engordar ahora un poco nuestro pro- 
grama. Introduzca la siguiente linea: 
40 PRINT ((COMO ESTAS?)) 
y ejecute este nuevo programa./.Con qu6 
resultado? 

Como antes, nos aparece en la pantalla la 
primera palabra, HOLA, yen la siguiente 
linea COMO ESTAS?) tambi6n pegado al 
margen izquierdo. 0 sea, coda instrucci6n 
PRINT escribe su texto en un rengl6n diferente. 
Esto estc bien pero en ocasiones, bastantes 
por cierto, podemos necesitar imprimir una 
frase, o una cantidad, a continuaci6n de Io que 
ya hay escrito. No en el siguiente rengl6n, si- 
no pegado a Io anterior. 
Y si nuestro Amstrad siempre actOa en la 
forma que les dijimos anteriormente, c6mo 
Iograrlo?/,Es posible? 
Tenemos en nuestras manos una herramien- 
ta capaz de hacer casi todo Io que se dice. So- 
lamente es necesario decirselo correctamen- 
te. El lenguaje Basic est6 provisto de unos ele- 
mentos Ilamados separadores)) PRINT 
que nos van a permitir hacerlo. En el progra- 
ma 1 vemos c6mo Io conseguimos. 

Programa uno 

Comparando este programa con el forma- 
do por las dos lineas que antes tecleamos, se 
ve que la 6nica diferencia existente entre ellos 
est6 en la linea 30, la del programa 1 termi- 
na con un punto y coma que antes no tenia- 
mos. EjecOtelo y vea qu6 pasa. 
A simple vista parece que hemos consegui- 
do Io que queriamos: escribir las dos frases se- 
guidas. Ha bastado poner un punto y coma 
para que los dos instrucciones PRINT coloquen 
los textos uno a continuaci6n del otro. 
Por tanto, no es muy arriesgado decir que 
el separador ; en una instrucci6n PRINT ha- 
ce que el cursor no salte de linea y vuelva al 
margen izquierdo de la pantalla, sino que se 
coloque a continuaci6n de Io que ha escrito. 
Como siempre se escribe a partir de la po- 
sici6n que ocupa el cursor, 6ste es el motivo 
de que las dos formas salgan unidas. 
SegOn esto, ya nos resultar6 muy f6cil escribir 
una linea completa de asteriscos./,Est6 de 
acuerdo en que nos daria Io mismo 
escribir 40 asteriscos uno detr6s de 
otro y juntos? 



Bueno, pues vamos a ello. Emplearemos en 
esta ocasi6n un bude WHILE... WEND que 
se estar repitiendo mientras se cumpla una 
condici6n. Y, ;,qu condici6n empleare- 
mos en este caso? 
Vamos a utilizar una variable, que Ilamare- 
mos <<contador, donde vamos air anotan- 
do e nOmero de asteriscos que hemos escrito. 
La condici6n ser6 que no hayamos colocado 
en la pantalla todos los asteriscos que queria- 
mos. Es deck: 
contador < 40 
El programa 2 nos muestra la ma- 
nera de hacerlo. 

Programa dos 

Primero inicializamos la variable <contador> 
con el ngmero de asteriscos que hemos escri- 
to cuando todavia no hay ninguno en la pan- 
talla, o sea: <¢ero (linea 30). 
A continuaci6n pondremos la primera linea 
del bude WHILE... WEND mediante la que 
vamos a determinar las veces que se va a re- 
petir el cuerpo del mismo, o serie de instruc- 
ciones que se ejecutan una y otra vez. ,l'las- 
ta cuando? 
Nosotros mismos hemos puesto la condici6n: 
cuando <¢ontador deje de ser menor que 
40. Por tanto, al escribir 40 asteriscos, o va- 
let 40 el contenido de la variable donde ano- 
tamos cada vez que escribimos uno, el bucle 
deja de repetirse y el ordenador ejecuta la ins- 
trucci6n siguiente que, en este caso, nos infor- 
ma del trabajo realizado. La linea 40 nos 
muestra esta condici6n. 
Veamos de qu 6rdenes est formado el 
cuerpo del bucle. La primera es la que hace 
que se vaya incrementando en 1 el valor del 
¢ontador cada vez que vamos a impri- 
mir un asterisco (/inea 50). 
Luego sacamos en pantalla el asterisco (/'- 
nea 60). Observe el punto y coma con el que 
termina esta orden. Es el que hace que un as- 
terisco salga qeg'ado a continuaci6n del 
anterior tal como habiamos quedado. 
Y cerramos el bucle con el WEND de la 70 
WHILE y WEND van unidos formando una so- 
la estructura y no podemos separarlos: debe- 
mos porter los dos. 
La linea 80 nos cuenta que el trabajo ha si- 
do realizado tal y como queriamos. 

Programa tres 

El proceso 16gico que hemos seguido que- 
da reflejado en la figura 1 que, sin duda, le 
dejar las cosas un poquito m6s tiaras. 
Supongamos ms cosas. Ahora necesitamos 
escribir una serie de datos encolumnados pa- 
ra mayor claridad. Teclee y ejecute el progra- 
ma 3 y observe sus resultados. 
Han cambiado un poquito respecto a 

los del programa anterior. En aquella ocasi6n 
los asteriscos aparecian uno tras otro y aho- 
ra, sin embargo, forman tres columnas en la 
pantalla. El n0mero de asteriscos es el mismo, 
pero su disposici6n es distinta. ,Qu ha 
cambiado? 
Esencialmente poca cosa. Fijese en la linea 
60 de ambos programas y usted mismo ser6 
capaz de averiguarlo. En el anterior la instruc- 
ci6n terminaba en punto y coma, Io que pro- 
ducia que los asteriscos salieran uno tras otto, 
yen el 01timo aparece una coma. Ahi est6 la 
diferencia. 
La coma hace que despus de imprimir un 
texto -un asterisco, en este caso- el cursor 
se coloque en la siguiente zona de escritura 
de la pantalla. Expliquemos esto. 
Cuando conectamos el ordenador, la pan- 
talla est6 dividida internamente en tres zonas 
y cada una tiene 13 caracteres de ancho o 13 
columnas, como prefiera. 
Como estamos trabajando en Modo 1 -es 
el habitual de momento- podremos escribir 
hasta 40 caracteres en una linea. De ahi el de- 
cir que la pantalla est dividida en tres zonas 
de 13. 
40 caracteres/13 caracteres-- 3 zonas 
Y a estas zonas de escritura nos referiamos 
cuando habkbamos del separador ¢o- 
ma. 
Nuestro programa empezar escribiendo un 
asterisco en el principio de la primera zona (co- 
/umna 1). El segundo, y debido a la coma, Io 
imprimir en el comienzo de la segunda ('co- 
lumna 1,¢= 13÷ I) y el tercero en la columna 
27 (1,÷ 13:27, clue ya es la tercera zona). 
A partir de aqui se volveria a repetir el ci- 
clo tantas veces como fuera necesario hasta 
completar los 40 asteriscos. 
Todo esto est6 muy bien pero podiamos pen- 
sar que es bastante restrictivo el disponer de 
tan s61o tres zonas de escritura. O ms bien 
de que el n0mero de las mismas sea fijo. Pero 
una vez m6s nos sorprende nuestro ordena- 
dor. 
Resulta que podemos disponer a nuestro 
gusto del ngmero de zonas en las que quere- 
mos dividir la pantalla. Nos basta con hacer: 
ZONE 10 
y los asteriscos del programa anterior saldr6n 
distribuidos en 40/10=4 columnas a Io largo 
de la pantalla. O con: 
ZONE 6 
los conseguiremos agrupar en 40/6 = 6 zonas 
de escritura. Y asi con cualquier valor que co- 
Ioquemos despus de ZONE. 
t41COHOBBY AMSTRAD 7 



%1o hay una limitaci6n. Ha de estar com- 
prendido entre 1 y 255. Por Io dem6s, sin pro- 
blemas. Asi pues: 
ZONE n 
cambia la anchura de la zona de escritura, es- 
pecificada en la instrucci6n PRINT cuando se 
utiliza una coma como separador a ((n ca- 
racteres. 
El programa 4 es un pequeo invento para 
poder distribuir nuestro conjunto de asteriscos 
seg0n el n0mero de columnas que deseemos. 
Echelo un vistazo. 

Programa cuatro 

La 0nica novedad radica en las lineas 40 y 
50. En elias, primero el ordenador nos pide 
la anchura deseada mediante el INPUT de la 
linea 40 y despu6s se define esta anchura me- 
diante ZONE en la linea 50. Todo Io dem6s 
es exactamente igual al programa anterior, 
pero esta vez podemos disponer de las colum- 
nas que queramos. 
Volvamos por un momento al programa 1. 
Borre la linea 40 y sustituya la 30 por: 
30 PRINT ((HOLA;((COMO ESTAS? 
y vea el resultado obtenido al ejecutarlo. Es 
el mismo que habiamos conseguido antes, pe- 
ro ahora s61o hemos usado una linea. 
Tambi6n podiamos cambiarla por: 
30 PRINT ((HOLA,COMO ESTAS? 
y cada uno de los textos apareceria en una 
zona distinta de escritura. 

Figura I. Organigrarna del programa II. 
8 cooA$RAD 

Eso quiere decir que despu6s de un PRINT 
podemos poner una serie de elementos que 
queremos escribir separados por (cama o 
punta y carna seg0n la distribuci6n de 
los mismos que queremos tener en la panta- 
;,Le ha quedado claro qu son y pa- 
ra qu se usan los separadores 
PRINT?. 
Pasemos a otra cosa. En vez de utilizar las 
zonas de escritura vamos a intentar escribir en 
una determinada columna. Teclee: 
PRINT TAB (10)* 
y aparecer6 un asterisco iustamente en la co- 
lumna 10 de la pantalla. 
Con esta orden, el cursor de textos ha avan- 
zado hasta la posici6n indicada en el par6n- 
tesis -en este caso la columna 10, y a partir 
de ahi, empieza a escribir un texto- o un as- 
terisco como ahora. 
Aqui nos encontramos con dos limitaciones. 
Si el cursor Io tenemos situado en la columna 
20 y le damos al Am:trad la orden: 
PRINT TAB (10)<,*, 
61, autom6ticamente, hace que el cursor re- 
torne al horde izquierdo de la pantalla, salte 
una linea y a partir de alli avance los espa- 
cios necesarios. 
El programa 5 muestra Io que le queremos 
deck con esto. 

Programa cinco 

Analicemos la linea 30. SegOn ella el cursor 
avanzar6 hasta la columna 20. A partir de esta 
posici6n nos escribir6 el n0mero de la colum- 
na donde se encuentra -20. 
Despu6s parece que tendria que volver a la 
posici6n 10 -tal corno /ndica el ndmero que 
hay en el segundo parntesis- dentro de la 
misma linea. 
Pero como nuestra posici6n actual es supe- 
rior a la del punto donde le mandamos ir, el 
ordenador act0a como hemos indicado ante- 
riormente, salta linea y vuelve al limite de la 
pantalla para, a partir de alli, contar los 10 
espacios y escribir el nOmero 10 partiendo de 
esa columna. 
El programa 6 es casi igual que el 5, pero 
ahora los coeficientes (o nOmeros que est6n 
entre parntesis) de los TABs est6n en orden. 

Programa seis 

Hemos obtenido un resultado bastante di- 
ferente al anterior. En este caso el nOmero 20 
si est6 en su sitio. ;,Comprende Io que 
queremos decir cuando hablamos de 
limitaciones? 
ka otra que teniamos es que el texto no en- 

tre dentro e la misma linea en la que hemos 
ido avanzando espacios con TAB. Ocurrir6 el 
mismo salto de linea que antes. ¢gJclada 
con estas cosas! 
Hay m6s formas, todavia, de escribir una 
serie de espacios y a continuaci6n un texto o 
una cantidad. Pruebe a teclear: 
PRINT SPC(10)( ! 0 ESPACIOS 
y observe Io que ocurre. Si Io mira con dete- 
nimiento, <10 ESPACIOS ha salido en la pan- 
talla desplazado respecto al borde izquierdo 
de la misma. Y, ,cuclnto? 
Justamente Io que nos parece escrito: 10 ES- 
PACIOS. Compru6belo usted mismo. 
SPC(n) 
es un atributo que ponemos alas instruccio- 
nes PRINT y que indica al ordenador que de- 
je, o escriba, tantos espacios como hemos 
puesto dentro det par6ntesis antes de escribir 
el elemento que'queremos imprimir. 
PRI NT SP(10)((! 0 ESPACIOS 
de aria 10 espacios desde.el.borde de la pan- 
ta a, 
PRINT SPC(16)((16 ESPACIOS) 
escribiria 16, pero ahora intente ver qu pa- 
sa con: 
PRINT XPC(5)HOIJ;SPC(15)dOIJ 
Aparece dos veces la palabra HOLA. La pri- 
mera est separada cinco espacios en blanco 
del borde de la pantalla y la segunda 15 de 
la posici6n donde termina de escribirse el pri- 
mer HOLA. 
O sea, entre la A del primer HOLA y la H 
del segundo hay exactamente ilos 15 espacios! 
tal y como indic6bamos en el segundo par6n- 
tesis. 
El progrcha 7 intentar6 aclararle las posi- 
bles dudas que tenga. 

Progromo slete 

Se trata simplemente de un bucle FOR... 
NEXT -/ineas 312 a 12- con el que hacemos 
variar el n0mero de espacios existentes entre 
los dos asteriscos utilizando para ello el valor 
de la variable de control en cada una de las 
vueltas -linea 40. 
Cambie 6sta pot: 
40 PRINT SPC(6)<%;TAB (control)% 
y observe el resultado. La diferencia existen- 
tees debida, como usted bien sabr6, a que 
mientras TAB empieza a contar el nOmero de 
espacios a partir del borde izquierdo de la 
pantalla, SPC Io hace desde la posici6n don- 
de est6 situado el cursor de textos. ;.Com- 
prendido? 
Bueno, basta ya de charlas. Sin otto parti- 
cular le saluda atentamente, etc., etc., etc... 
Hasta la pr6xima semana. 



PROGRAMA I 

I(} REM PROGRAMA I 
20 CLS 
0 PRINT"HOLA. " 
40 PRINT"COMO ESTAS?." 

PROGRAMA 2 

I0 REM F'ROGRAMA II 
20 CLS 
30 contador=O 
40 WHILE contador<40 
50 contador=contador+l 
bO PRINT"*"; 
70 WEND 
80 PRINT" YA HEMOS ESCRITO L 
OS 40 ASTERISCOS" 

PROGRAMA 3 

I0 REM PROGRAMA Ill 
20 CLS 
30 contador=O 
40 WHILE contador<40 
50 contador=contador+l 
60 PRINT"*", 
70 WEND 
80 PRINT"YA HEMOS ESCRITO LOS 
40 ASTERISCOS" 

PROGRAMA 4 

I0 REM PROSRAMA IV 
20 CLS 
30 contador=O 
40 INPUT"ANCHURA DE LA ZONA DE 
ESCRITLJRA: "anchura 
50 ZONE anchura 
60 WHILE contador<40 
70 contador=contador+l 
80 F'RINT"", 
90 WEND 
I00 F'RINT"YA HEMOS ESCRITO LOS 
40 ASTERISCOS" 

PROGRAMA 5 

I0 REM PROGRAMA V 
20 CLS 
30 PRINT TAB(20)20;TAB(IO) 10 
40 PRINT"EL CURSOR AVANZA HAST 
A LA COLUMNA 20" 
50 PRINT TAB(20)20 
60 PRINT"SALTA LINEA, " 
70 PRINT"VUELVE AL BORDE DE LA 
PANTAL A" 
80 PRINT"Y AVANZA HAS'IA  A C[l 
UMNA 10, " 
90 PRINT TAB(JO) I(' 

PROGRAMA 6 

I0 REM F'ROGRAMA V I 
20 CLS 
30 PRINT TAB(IO) IO;TAB(20)20 
40 F'RINT"EL CURSOR AVANZA HAST 
A LA CO1UMNA I0" 
50 PRINT"Y DESF'UES HASTA LA 20 

PROGRAMA 7 

I0 REM PROGRAMA VII 
20 CLS 
3(} FOR espacios=1 TO 20 
40 PRINT SPC(6)"*"SPC(espacio 
s)"" 
50 NEXT espacJoB 
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SEMANAL 

Porque pretendemos que AMSTRAD 
SEMANAL sea tambi6n vuestra revista, 
hemos abierto una secci6n en la que se 
publicar6n los mejores programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros ser6is los encargados de realizar 
estas p6ginas, en las que podr6is apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 
Las c0ndici0nes son sencillas: 
-- Los programas se enviar6n a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acompa- 
5ado de un texto explicativo en el cual 
se incluyan: 
-- Descripci6n general del programa. 

-- Tabla de subrutinas y variables utl- 
lizadas, explicanda claramenle la 

funcidn de cada una de elias. 
-- Instrucciones de maneia. 
-- Todos estos datos deber6n ir escri- 
los a mquina o con letra clara para ma- 
yor comprensi6n del programa. 
-- No se admitir6n programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpreo 
tados por las impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado, AMSTRAD SE- 
MANAL abonar6 al autor del programa 
de l$.Og0 a 1Og.O0g pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, recibir6n 
una comunicaci6n escrita de ello en un 
plazo no superior a dos meses a partir 
de la fecha en que su programa Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
ma, 
-- Todos los programas recibidos que- 
dar6n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio ser6n eliminados inmediatamenle. 

IENVI' NOS 
TU PROGR' MA I. 
Adiuntando los siguientes datos: 
Nombre y apellidos,. 
direcci6n y telfono. 
Indicando claramente en el sabre: 

AMSTRAD SE  fANAI 
a HOBBY PRESS, S. A. La Grania, 39 
Pol. Ind. Alcobendas (Madrid) 

/COHOaX AMSTRAD 9 
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IA SENTENCIA IF... THEN 

L bucle WHILE... WEND 
no son las gnicos polabras 
Basic que pueden usarse con condiciones. Esta sen- 
tencio IF... THEN tambin es v61ida. 
El usa de IF... THEN no puede ser m6s f6cil ya que 
refleja muy bien el lenguaje ingles. 
Par ejemplo, hay una frase tpicamente paternal: 
IF no te vas a la cama 
THEN me enfadar 
o la tipicumente matrimonial: 
IF Io dices otra vez 
THEN estallar 
La idea es que dg una condici6n despus de IF, 
y qua despus de THEN especifique los calamitosas 
consecuencias si se ha cumplido esta condici6n. 
Par su puesto que si la condici6n no se cumple, en- 
tonces ya no se realiza Io que est6 detr6s de THEN. 
Sabe si la dltima sentencia es una instrucci6n IF... 
THENZ.) 
A menudo las condkiones qua especifiamos en 
nuestros programas suponen igualdades o desigual- 
dades. Par ejemplo: 
IF n0mero > 100 THEN PRINT 
,$ u..mero grande. 
IF n0mero < + supuesto THEN PRINT 
(Su posici6n es equivocada.)) 
El programa 1 utiliza estas ;deas para decirnos si 
el nOmero es mayor que, igual o menor que 10. Me- 
tamos el n0mero en Io linea 50, entonces la las 
neas 60, 70 y 80 escriben el,r.esultado de la compa- 
raci6n para cada uno de los tres casos o condicio- 
nes. 
Si la variable ((nl)mero)) cumpJe una de los con- 
diciones {as dec[r, es mayor qua, iguo/ a/ 0 menor 
qua I0), se imprime el mensaie aprapiado. 
Observe qua es imposible para cualquier valor de 
la variable (nl)mero)) provocor m6s de un men- 
sale. 
El programa 2 desarrolla las ideas que estamos 
discutiendo. Las lineas 70 a 100 hacen el trabajo del 
programa 1 comparando el ngmero con 10. 

Ambas condiciones 
pueden mezclarse 

La novedad es que en este caso la comparaci6n 
est6 envuelta par un bucle WHILE... WEND. Vamos 
ha hacer nuestros comparaciones en tres tiempos. 
(Conozcamos el cielo.) As/qua vamos a introducir 
la variable apropiadamente Ilamada ¢contadon) 
qua se mantendr6 al tanto de cuantas veces hace- 
mos WHILE... WEND. 
AI principio la variable <ontador est6 marcan- 
do cero (I/nea 50), cado vez que se ejecute el bude 
set6 incrementada en uno (#nea 120). Asi que, Io 
primera vez que se ejecute el bucle, la variable 

(contador es cero, IO segunda vezes uno, la ter- 
cero es dos. 
Ya que necesitamos hater el bucle s61o tres races, 
ser[a mejar asegurarnos que la variable ¢¢¢onta- 
¢Jor)) nunca alcanza el valor 3, de otto manera ten- 
dfia que hater el bucle una cuarta vez. 
Para Io cuaJ agregaremos la condici6n a nuestro 
WHILE. 
60 WHILE contador < 
Puede que parezca un poco extrafio que valga 
menos que 3, pero recuerde, empez6 contando ca- 
to. 
Si cree qua esto est6 data, puede empezar con- 
tando desde uno, combiando la llnea 50 a: 
50 contador = 1 
En este caso necesita cambiar la condici6n del bu- 
cle para alterar la linea 60 a: 
60 WHILE contador < =3 
A prop6sito, sabe, si: 
60 WHILE contador < +4 
Y 60 WHILE contador < 4 
son equivalentes a esta nueva versi6n de la linea 60. 
Personalmente, has parece qua nuestra primera al- 
teraci6n es clara, ya que necesita el valor 3. 
A prop6sito, la linea 110 es, precisamente, un es- 
pacio en blanco entre los grupos de mensajes del bu- 
cle, y la linea 140 has hate saber que el programa 
ha terminado. 
No olvide que puede utilizar la combinaci6n < 
< en el sentido de no es igual que)) con ca- 
denas y caracteres asi coma con variables numri- 
cas. El programa 3 Io demuestra, mejor dicho, es un 
ejemplo tonto. 
Es muy similar a un programa que tuvimos el mes 
pasado, de modo que no debe causarle ningOn pro- 
blema. 
Ahora veamos el programa 4. Lo crea o no, es 
un equivalente exacto al programa 3. En lugar de 
utilizar WHILE... WEND, vamos a usar la combina- 
ci6n IF... THEN y GOTOs. 
Hasta el momenta, hemos utilizado solamente 
PRINT despus de THEN. Sin embargo, se puede uti- 
lizar cualquier palabra clave Basic, incluyendo GOTO. 
GOTO, con el que ya hemos encontrado, hace 
que el micro salte al nOmero de linea especificado 
y sigue operando alli. 
La linea 60 da entrada al valor de una variable 
((respuestas$)) en respueta a la pregunta: 
repetiremos?)) 
La Iinea 70 deja una linea en blanco coma espa- 
cio, asi saltamos inmediatamente a la linea 50 via 
el GOTO de la linea 80. 
Entonces la linea 50 analiza nuestra respuesta a 
la pregunta. Si respondemos de otra manera que 
cno)), se continuar6 con el (mds bien insignifican- 
te) programa, si respondemos (mo se deja el pro- 
grama. 
La linea 50 utiliza GOTO acompaando el final 
de una sentencia IF... THEN. 
En efecto, dice, IF el valor de respuestas$ 
es ¢no)) THEN GOTO a la linea 90. 
Ya que hemos dado entrada a un ,no, el efecto 

PrimeroS 
repasos 

de Io linea 50 has haria un GOTO a la linea 90. Lo 
linea 90 contiene Io palabra clave BASIC END qua, 
coma su nombre indica, provoca el final de la eje- 
cuci6n del programa. 
Par otra parte, cualquier otra respuesta no cure- 
pie la condici6n, par Io tanto no haremoslo que vie- 
ne despus de THEN, sino que sencillamente se con- 
tinuar6 el programa. 
Fs asombroso que el micro encuentre Io primero 
la linea 50. AI fin y al cabo, no hemos dado entrada 
a ningn valor para la variable ((respuestas$)). 
Buena, el Amstracl Io supone, hasta que le de- 
mos a Io variable un valor, sta no tiene ninguno 
cualquiera que sea la comparaci6n. Verdaderamen- 
te no puede tenet el valor Cmo)), asi que el progra- 
ma no hace Io qua viene despus de THEN, pero 
continOa normalmente. 
Creemos qua estar6 de acuerdo en qua es una 
suede tremenda el poder Ilevar a cabo este trabaio 
con un manejo tan simple coma el bucle WHILE... 
WEND en el programa 3 y este gltimo est6 lejos de 
ser f6cil de comprender. 
Los GOTOs, con su tendencia a saltar sabre los 
programas, qua parecen liebres de matzo, son una 
primera causa en los programas. 
Los buenos programadores raramente los utilizan 
-cos/nunca- mientras haya alternativas tiaras y 
sencillas. Esperamos que usted tambin los evite. 

! 0 REN 
?r RN prngram I 
40 MODF I 
=,0 IHF'IJT "Teclee un numero"numero 
bO IF numeroiO THEN PRINT "El nume 
70 IF numeromiO THEN PRINT "El nume 

! O REM 
30 REM 
40 MODE I 
50 r ant ador-O 
60 WHI E contador<3 
70 INPUT "Teclee un numero"numero 
80 IF numerotO THEN PRINT "El nume 
ro es mayor qua 10" 

qO IF numro=IO THEN PRINT "El nume 
ro es |gual a IO" 
lrO IF numro,'10 THEN PRINT "El num 
=to es manor qua IO" 
I 10 PRINT 
140 PRINT 'Se gEbo" 

I(, REM 
2C) REM programa IV 
30 REM 
O MODE I 
50 IF re-puesta$="no" THEN OOTO qO 
60 INPLIT"Me 10 rep:te";respueta$ 
70 PRINT 
80 GOTO 50 



a se puede e ouch. r 
el sonAdo dei fu  uro. 
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-- Plato. 
- Amplificador, 25 W por canal. 
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Desde el vuelo 
rasante a baja 
altura, hasta 
velocidacles 

suers6nicas a una 
altura de 30.000 

pies, el Skyfox 
rastrea el espacio 
a(reo que rodea a la 
base, en busca de las 
oleadas enemiga$ 
que amenazan con 
destruirla. 

ectado el movimien- 
to de efectivos enemigos por la estaci6n de ra- 
dar, el ordenador central estima cuidadosa- 
mente su posici6n y cuantia, declarando el es- 
tado de alerta de combate en m6ximo grado 
de actividad. 
La alarma general se dispara y los pilotos 
de combote salen disparados hacia sus cazas. 
Una vez acomodados en el interior del nues- 
lro, comienza la comprobaci6n de los instru- 
mentos pora el lanzamiento. 
Nivel de combustible al m6ximo, escudo 
protector activado, misiles t6rmicos y dirigidos; 
instalados y listos para el disparo, radar de 
aproximaci6n de blancos activado, ordenador 
de abordo procesando datos. 
Con estruendo ensordecedor, los turbo- 
rreactores son encendidos impuls6ndonos por 
la rampa de lanzomiento a gran velocidad, la 
creciente oceleraci6n nos comprime sobre el 
asiento; en pocos segundos estamos en el aire. 

FOX 

El radar de corto alcance, rastreo la presen- 
cia de fuerzas enemigas; desafortunadamen- 
te, no aparecen posibles blancos en la panta- 
Ila, por Io que es horo de consultar el mapa 
del ordenador de la base. Detectadas las poo 
siciones enemigas, el piloto autom6tico entre 
en acci6n, Ilevrndonos directamente sobre las 
agrupaciones de tanques ms pr6ximas. 
AI aparecer las primeras en el horizonte, re- 
ducimos la velocidad considerablemente. En 
sucesivas pasadas conseguimos eliminar la to- 
talidad de la brigada sin que nuestro escudo 
protector sufra demasiados daos. 
El pr6ximo objetivo detectado por el orde- 
nador se encuentra a gran allura; es una es- 
cuadrilla de tres cazas supers6nicos. Nos ele- 
vamos, ganando altura r6pidamente y pone- 
mos de nuevo en manos del piloto autom6ti- 
co la misi6n de aproximarnos a ellos. Pega- 
dos a su cola, solamente lenemos que lanzar 
los misiles de cabeza buscadora que detecta 
el calor de los reactoes. 
Uno de los cazas enemigos gira en redon- 
do ametrallando nuestro escudo protector, pe- 
ro un misil dirigido acaba con 61. Comproba- 
do el estado de daos y la cantidad de com- 
bustible restante, nos vemos obligados a ate- 
rrizar en la base y reponer tanto el combusti- 
ble como las placas deterioradas de el escu- 
do protector; sin mayor demora estamos de 
nuevo en el aire en busca de m6s presas para 
nuestro Skyfox. 

Por las ventanas de nuestro caza desfila un 
autntico paisaje 3D. Los movimientos del joys- 
tick a ambos lados hacen girar el horizonte, 
d6ndonos autntica sensaci6n de vuelo. 
A ras del suelo, los tanques se aproximan 
con aut6ntica sensaci6n de realidad, desde 
ocupar el tomato de una minOscula mancha, 
hasta alcanzar el tamao de una de las ven- 
tanillas del caza. 
Por si esto fuera poco, en el combate areo 
los resultados son todavia m6s espectaculares: 
escuadrillas de varios cazas se aproximan a 
nosotros en distintas direcciones; pegarnos a 
la cola de uno de ellos y seguirle hasta dispa- 
rar un misil nos hace apreciar perfectamente 
los efectos tridimensionales de este programa. 



El aparato enemigo se aproxima, se aleja, 

intenta desviarse de nuestra trayectoria para 
esquivarnos, cosa que estamos viendo como 
si se tratara de un combate real. Si lanzamos 
un misil veremos c6mo sale del frente de nues- 
tra cabina y se pierde en el horizonte. 
Adem6s de los excelentes efectos tridimen- 
sionales, no debemos perder de vista la can- 
tidad de controles e indicadores que maneja 
nuestro caza. 
El panel de mandos est6 compuesto por do- 
ce indicadores, de los cuales ocho son digita- 
les, tres gr6ficos y el restante es una pantalla 
de radar. 
En la parte superior de la cabina, se encuen- 
tran los indicadores de las coordenadas de 
vuelo. 
En eJ panel de mandos, un reloj digital mi- 
de el tiempo transcurrido de misi6n. 
En la parte central, la pantalla de radar nos 
sefiala los blancos enemigos pr6ximos al ca- 
za; tambin observamos la direcci6n de vue- 
Io, la cual es medida con precisi6n por la bra- 
jula digital que se encuentra debaio. 
Los indicadores de velocidad y altitud se en- 
cuentran a ambos lados de la misma. 
En las esquinas est6n los indicadores gr6fi- 
cos de combustible y estado del escudo pro- 
tector, al lado de cada uno de los cuales te- 

nemos el ngmero de misiles que podemos lan- 
#, zar. 

Con esta profusi6n de indicadores, podria- 
mos decir que es un simulador areo de corn- 
bate, pero la diferencia con ellos es queen 
Skyfox la acci6n es trepidante y no tenemos 
que preocuparnos de realizar complicadas y 
rutinarias operaciones para despegar, man- 
tener el vuelo de la nave, etc. 
Tampoco tenemos que esperar minutos y mi- 
nutos de vuelo hasta Iocalizar alg0n enemigo; 
si no queremos buscarlo en el mapa del orde- 
nador, el piloto autom6tico Io Iocalizar6 por 
sf solo. 
Un programa con gran acci6n, dorado de 
unos excelentes efectos tridimensionales y so- 
noros que nos trasladan a la cabina de un ca- 
za ultromoderno de la tercera guerra mundial. 

": El Skyfox est6 equipado con misiles de ca-  . 
;" '? i beza rastreadora de calory misiles autodiri- 
/ 
' . i, ' gidos al blanco. 
En la derecha el indicador del piloto auto- 
m6tico, que nos dirigir6 hacia el objetivo ms - .- 
pr6ximo. 
[  __MAESTRA 
. .... 

ICtOHOBBY AMSTRAD 15 



SENSACIONAL 
BASE DE DATOS 
E$CRITA EN 
LENGUAJE MA QUINA 

Ha Ilegado el momento de apficar los conocimientos 
a, dqu.iridos basra ahora sobre la programaci6n en c6digo 
maquma, a programas que nos puedan resultar de utilidad. 
Para este prop6sito hemos preparado una agenda personal 
cuyas rutinas describiremos detalladamente, haciendo 
hincapi en las partes m6s importantes de las mismas. 

nos plan- 
teamos la creaci6n de un programa, 
debemos decidir en primer lugar 
curies son los objetivos que desea- 
mos alcanzar. Una vez tomada la 
decisi6n, deberemos confeccionar un 
men0 con cada una de las posibles 
opciones disponibles en el progra- 
_ma 
Una vez hecho esto deberemos 
empezar a confeccionar cada una de 
las rutinas que har6n posible el buen 
funcionamiento del programa. 
Empezaremos ahora a describir 
cada una de las partes que compo- 
hen nuestra AGENDA PERSONAL. 
Como hemos dicho anteriormente, 
Io primero que necesitamos es con- 
feccionar un menO, dado que Io que 
ueremos es confeccionar una agen- 
a, un meng adecuado puede ser el 
siguiente: 
1. INTRODUCIR DATOS 
2. BUSCAR DATOS 
3. ANULAR DAT©S 
4. REVISAR AGENDA 
5. CARGAR AGENDA 
6. SALVAR AGENDA 
La rutina encargada de imprimir 
este menO en pantalla se encuentra 
a partir de la linea 2610 y Ilega has- 
ta la 2950. Dicha rutina es extrema- 
damente sencilla, ya que Io Onico 
que debe hacer es leer los datos co- 
rrespondientes a cada opci6n e im- 

primirlos adecucdamente en panta- 
Ila. 
Para hacer esto, Io primero que 
haremos ser6 borrar la pantalla. A 
continuaci6n introducimos en el re- 
gistro HL, las coordenadas donde 
deseamos imprimir y Ilamamos a la 
rutina del firmware: 
COORD - #BB75 
que se encarga de colocar el cursor 
en la posici6n indicada por el regis- 
tro H L. 
En este momento tenemos prepa- 
rada la posici6n de pantalla donde 
vamos a imprimir, s61o nos queda Ila- 
mar a la rutina de impresi6n, indi- 
c6ndole la posici6n de memoria don- 
de se encuentran los datos que de- 
be imprimir, esta posici6n de memo- 
ria se indica en el registro HL. 
Asi pues, esta operaci6n se reali- 
za 6 veces puesto que 6stas son el n0- 
mero de opciones que ofrecer6 el 
men0. 
Ya sabemos c6mo presentar nues- 
tro men0 en pantalla, pero esto no 
sirve de nada sin una rutina que se 
encargue de leer el teclado y sea ca- 
paz de enviar el programa alas ru- 
tinas adecuadas seg0n la tecla que 
se pulse en ese momento. 
La parte que se encarga de este 
trabajo se encuentra en las lineas 
110-460, y se compone fundamen- 
talmente de la rutina del firmware: 
TECLA - #BB1E 
Esta rutina se encarga de compa- 
rar el valor de la tecla pulsada con 
el contenido del acumulador. 
Por Io tanto, antes de Ilamar a es- 
ta rutina deberemos cargar en el re- 
gistro A, el valor de la tecla que de- 
seamos comprobar. Si la tecla que 
pulsamos es la que deseamos, el flag 
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Z del registro F e pondr6 a 1 y si no 
Io es estarc a cero. 
De esta forma iremos comproban- 
do cada una de las teclas que deft- 
nan alguna de las opciones del pro- 
grama. Si ninguna de elias estR pul- 
sada, realizaremos la lectura de nue- 
VO. 

Altas en el fichero 

Vamos a estudiar ahora una de las 
rutinas mrs importantes que confor- 
man el programa. Se trata de la ru- 
tina de introducci6n de datos. Esta 
rutina simula la sentencia Basic IN- 
PUT. 
Antes de realizar el input debemos 
imprimir en pantalla el mensaje que 
indicar6 Io que se debe introducir. 
Asi pues, si Io que el programa nos 
pide es el nombre, en pantalla se im- 
primirR el siguiente mensaje: 
NOMBRE: 
A partir de ahora es cuando em- 
pieza a actuar la rutina de input. Lo 
primero que se hace es poner a ce- 
ro la Iongitud del mensaje, para co- 
nocer mrs tarde la Iongitud exacta 
del nombre introducido. 
Hecho esto, Ilamamos a la rutina 
del firmware, WKEY, que esperarR 
hasta que se pulse una tecla. Una 
vez se haya pulsado una tecla, de- 
beremos chequear las siguientes po- 
sibilidades: 
1. Si el valor de la tecla es 13 
(ENTER), esto indicarR que ha termi- 
nado la introducci6n del dato, con Io 
cual se saldrR de dicha rutina. 
2. Si la tecla tecleada tiene el va- 
lor 127 (DELETE), se enviarR el con- 
trol del programa a la rutina de bo- 
rrado. 
3. Si se ha pulsado una tecla fue- 
ra de tango (es decir, cuyo valor es 
menor que 32 o mayor que 127), en- 
tonces se volverR a Ilamar a la ruti- 
na WKEY. 
4. Si el valor de la tecla pulsada 
est6 dentro del rango 32-128, se pa- 
sa el control a la rutina encargada 
de almacenar imprimir ese carRcter. 
Cuando nosotros pulsemos una te- 
claque se encuentre dentro del ran- 
go establecido, el control del progra- 
ma pasa a una secci6n, donde el va- 
lor ASCI del carRcter es almacena- 
do en un buffer, y se produce la im- 
presi6n en pantalla de dicho carRc- 
ter, una vez realizadas estas opera- 
ciones, se devuelve el control a la ru- 
tina que comprueba qu tecla se ha 
pulsado. 

Si la tecla pulsada estR fuera de 
rango, no se produce ningOn efecto, 
y simplemente retorna para compro- 
bar la siguiente tecla. 
Cuando la rutina comprueba que 
se ha pulsado la tecla DELETE (c6di- 
go 127), entonces se envia el control 
del programa a una rutina que se en- 
carga de borrar del buffer el carRc- 
ter inmediatamente anterior, y posi- 
ciona los cursores adecuadamente 
para recibir el siguiente car6cter. 
Si se pulsa la tecla ENTER (c6digo 
13), el mensaje que se encuentra en 
pantalla se almacena en un buffer in- 
termedio, a la espera de que los de- 
mrs datos de la ficha sean introdu- 
cidos, y se devuelve el control a la ru- 
tina que se encarga de pedir los da- 
tos restantes. 

Verificaci6n de datos 

Una vez la ficha haya sido comple- 
tada, se IlamarR a la rutina encarga- 
da de verificar los datos introduci- 
dos. Esta imprimirR en pantalla el 
mensaje 'CORRECTO (S/N)', segui- 
damente se chequearRn las teclas 'S' 
Y 'N'. Si se pulsa la primera la ruti- 
na retornarR con el flag Carry del re- 
gistro F puesto a 1, y el programa 
continuarR su recorrido. Si por el 
contrario se pulsa la tecla 'N', retor- 
narR con el flag C puesto a cero, y 
entonces tendremos que introducir 
los datos de nuevo. 
El siguiente paso es comprobar si 
se desea rellenar otra ficha o se de- 
sea finalizar la introducci6n de da- 
tos. Para esto se imprimirR en pan- 
talla el mensaje 'OTRO DATO (S/N)' 
y haremos un CALL a la rutina encar- 
gada de descifrar si se pulsa la tecla 
'S' o 'N', que ya hemos menciona- 
do anteriormente. 
Si dicha rutina nos devuelve el 
Carry puesto a 1, significarR que se 
desea rellenar una nueva ficha y se 
enviar6 el control a la rutina perti- 
nente. Si por el contrario el Flag 
Carry est6 a cero, se interpretar 
que no se desean rellenar mrs fichas 
y el control del programa se envia- 
r6 el bucle principal donde se impri- 
mirR de nuevo el menO en pantalla 
y se chequear6n las teclas correspon- 
dientes a cada opci6n. 
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Cuando hayamos terminado de in- 
troducir una ficha correctamente, el 
programa llama a una rutina espe- 
cializada en traspasar los datos exis- 
tentes en el buffer intermedio, (da- 
tos correspondientes a la gltima ficha 
rellenada), a su lugar final de desti- 
no dentro del fichero creado. 
Esta operaci6n se realiza median- 
te la instrucci6n LDIR, que como sa- 
bemos necesita tres par6metros que 
ser6n los que definan su actuaci6n. 
En primer lugar debemos indicar 
en el registro doble HL la direcci6n 
de memoria a partir de la cual se de- 
sean trasladar los datos. En el regis- 
tro par DE, debemos indicarle la di- 
recci6n hacia la cual se quieren tras- 
pasar esos datos, yen BC debemos 
indicar la cantidad de datos. 

oo. 
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Asi pues deberemos cargar HL con 
la direcci6n donde se encuentre el 
buffer intermedio, sta es la indica- 
da por la etiqueta 'BUFF1 ', en el re- 
gistro DE pondremos la direcci6n ac- 
tual del fichero, que viene indicada 
por la etiqueta 'DIREC' yen el regis- 
tro doble BC indicaremos la Iongitud 
de los datos que ser6 variablemente 
de 160. 
Una vez finalizada la operaci6n de 
archivo de datos, deberemos actua- 
lizar la etiqueta 'DIREC' con la nue- 
va direcci6n del archivo, para ello 
efectuamos la siguiente instrucci6n: 
LD (DIREC),DE 
De esta forma se deia preparada 
la direcci6n de archivo para la si- 
guiente ficha a introducir. 
Por Oltimo describiremos la rutina 
de borrado de buffer de teclado. Es- 
ta rutina es muy importante, ya que 
de Io contrario se produciria una 
chequeo err6neo de las teclas, ya 
que no comprobariamos realmente 
las teclas que pulsamos desde tecla- 
do sino que el chequeo se produci- 
ria sobre las teclas que se encuentran 
en el buffer de teclado, y por Io tan- 
to se produciria un caos total dentro 
del programa. 
Esta rutina que se encuentra ubi- 
cada entre las lineas 3050 y 3190, 
consta de una Ilamada al firmware: 
KEYRES- #BB03 
que es la encargada de producir el 
vaciado del buffer de teclado. 
Dentro de esta misma rutina tam- 
bin se produce un periodo de pau- 
sa que permite la sincronizaci6n de 
las diferentes partes del programa. 
Veremos por Oltimo la rutina que 
se encarga de la iniciaci6n del pro- 
grama, que se encarga de preparar 
la pantalla con los colores elegidos. 
Esta rutina se encuentra a partir de 
ta linea 500 y Ilega hasta la 630. 
Se utilizan tres Ilamadas al firmwa- 
re: 
MODO - #BCOE 
BORDER- #BC38 
IN KS - #BC32 
La primera se encarga de colocar 
la pantalla en el modo indicado por 
el contenido del acumulador. La si- 
guiente pone el borde del color indi- 
cado en el registro doble BC, y la OI- 
tima coloca las tintas especificadas 
en el registro BC, en la pluma indi- 
cada por el contenido del acumula- 
dor. 
En esta 61tima se inicializa la varia- 
ble DIREC con el valor 1000. 



CALL P~SUC 
LD HL, TXTH3 
CALL P_BUC 

Si no Io encuentras en tu tienda habitual, IImanos 
y te Io enviaremos directamente contra reembolso. 

Tenemos todos los modelos de 
Amstrad, perifricos, software y libros. 

Disco o/y cassette Amstrad 
Commodore 
Apple 

Robot 
Fischertechnik 

Distribuidor para EspaAa 
precio incluyendo caja de construcciOn 

software 
interface 
adaptador 

Todo.--34.990 ptas. 

Centro Comercial, Local 15 
Ciudad Sto. Domingo 
Carretera de Burgos, Km 28 
ALGETE - MADRID 
Telf. 622 12 89 



AMSTRAD CP -464 AMST:. 

SERIE CPC 

UNIDAD CENTRAL. MEMORIAS 
• Microprocesador ZSOA- 64K RAM 
ampliables - 32K ROM ampliables 
. TECLADO • Teclado profesional con 
74 teclas en 3 bloques - Hasta 32 teclas 
programables - Teclado redefinible 
. PANTALLA • Monitor ROB v,r.e (12") 
o color (14") 

Col x lineas 
Colores 
hntos 320x2 640x2 160x2 
- Se pueden definer hasta 8 entaas de 
texto y 1 de grficos 
e 3 canales de 8 octavas moduledas 
independientemente - Altavoz intemo 
regulable - Salida estreo. BASIC 
 Bomotive BASIC mpliado en ROM- 
cluye los comandos AFTE y BVERY 
pa control de fntepciones 

ORD NAD 

AMSTRAD CPC 464 

AMSTRAD CPC 6128 

CASSETTE • Cassette incorporada con 
velocidad de grabacibn (1 6 2 Kbaudios) 
controlada desde Basic • CONECTORES 
• Bus PCB mltiuso, Unidad de Disco 
exteriorl pa'alelo Centonics, salida 
est&eo, joystick, lpiz 6ptico, etc. 
• SUMBIISTRO. Ordenador con monitor 
verde o color- 8 cassettes con 
pt'6gramas - Libro "Guia de Referencia 
BASIG para el programaddr" - Manual en 
&asteltano - Oarantia Oficial AMSTRAD 
ESPAA. 
TODO POR 59,900 Pts. monitor verde 
90,900 Pts, (monitor co}or) 

UNIDAD DE DISCO • Unidad 
incorporada para disco de 3" con 180K 
por cara • SISTEMAS OPERATIVOS 
• AMSDOS, CP/M 2.2, CP/M Plu(3,0) 
• CONECTORES • BU. PCB multit.l.o, 
paralelo Centronics, cassette exterior, 
21" Unidad de Disco, salida est&eo, 
joysticks, l&piz 6ptico, etc, 
• SUMINISTRO • Ordenader OI'I 6nltt 
verde o color- Disco con CP/M 2,2 y 
lenguaje DR, LOGO- Disco con CP M 
Plus y utilidades - Disco con 6 programas 
de obsequio Manual en astellano 
Garana Oficial AMSTRAD ESPAA, 
TODD POR 84.900Pts. (momtor verde) 
HO.900Pts. (monitor color) 



PCW-8256 AMSTRADCPC 6 8 

Dos ms prestigiosos paque es de 
Software Profesional, en formato 
AMSTRAD.. a preciosAMSTRAD 

Existe tambi4n la versi6n PCW 8512 
512K RAM y la 2? Unidad de Dis 0 de 
1 Mbyte incorporada 
* El PCW 8256 pueOe utilizarse como 
terminal yen comunicaciones, 
El I,V,A, no estA l luido en los precios. 
 ," : . muy importante vencar lagarantla del 
aparalo ya que 561o ISTItD ESPANA puede 
gara,tizarle la ordenada reparaci6n y sob]:e 
malefiales de repuesto oficiles (Monitor. 
ordenadol csse,e o unidades de discos). 

Avd. del ,: eterrineo, 9. Tell, 413 45 48- 433 48 76. 
28G07 MADRID 
Delegl.6 Cal,,-' T ,. o., 110 - 
0015 BARCELONA 

UNII)AD CENTRAL. MEMORIAS 
, Microprocesador Z80A- 256K RAM de 
las que l12K se utilizan como disco RAM 
e TECLADO  Tlad0 profesional en 
castellano (fi, acent,,.) le 82 teclas 
e PANTALLA e Monitor verde de alta 
resoluci6n - 90 columnas x 32 lneas de 
texto ,, UNIDAD DE DISCO • Disco de 
3" y 173K por cara- Opcionalmente, 
2? Unidad de Disco de 1 Mbyte integrable 
 ;ISTEMA OPV..RATIVO ,, CP M Plus 
de Digital Research, IMPRESORA 
Alta calidad (NLQ) a 20 c.p.s. - Calidad 
estAndar a 90 c.p.s. - Papel continuo u 
hojas sultas - Alinead6rt autom.tica de 
pal- Cavacteres normales, 
compnmidos, expandidos, control 
paso de letra (normal, cursiva, negrita, 
subindices, superindices, subrayado, etc). 
e OPCIONES, Kit de Amplia:i6n a 
512K RAM y 2? Unidad de Disco- 
Interface Serie RS 232C y paralelo 

TODO POR 1:'.9.900 Pts, 

completo con teclado,, parttalla, Unidad 
de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP/M 
Plus, Ma!lard, BASIC, DR. LOGO ydive'.as 
utilidades - Manuales en castellano - 
Garantia Oficial AMSTRAD ESPAIA. 

AMSTRAD PCW 8256 Centronics, SUMINI. TRO, Ordenador • 
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El ordenador AMSTRAD PCW8256 viene ya con impresora 
incluida. El an61isis de esta impresora debe empezar 
forzosamente por un punto: ,Qu# I.e va a pedir el usuario del 
ordenador a diho mpre$ora? 

ste ordenador vie- 
ne ya con una calificaci6n desde la 
f6brica, que dirige al comprador. Es 
un procesador de textos. En otras 
palabras, est6 diseado para impri- 
mir documentos de muy diversos ti- 
pos. Partiendo de esta base, la im- 
presora adecuada es aqulla en la 
que prepondera la calidad de la le- 
tra sobre la velocidad de impresi6n. 
Y esto es Io que han hecho en Ams- 
trod con la impresora que viene en 
el equipo. 
Aunque hay impresoras de muy di- 
versos tipos, las impresoras m6s usa- 
das son las de (margarita)) y las ma- 
trices. De estas dos, las impresoras 
con mayor calidad son las de ((Jm- 
presi6n por margarita, y las m6s 
rpidas son las matriciales. Otros ti- 
pos de impresora, tales como las im- 
presoras 16ser o de inyecci6n de tin- 
ta no s61o tienen un grado de sofistio 
caci6n sino que su precio resulta muy 
alto. La tecnologa de las impresoras 
de margarita es similar a la de las 
m6quinas de escribir elctricas, resul- 
tando m6s lentas que las matriciales 
y adem6s, m6s caras. Por ello Io nor- 
mal en ordenadores personales y do- 
msticos es encontrarse con impreso- 
ras Ilamadas matriciales). En sta, 
el car6cter es formado por una ma- 
triz de puntos. Lo calidad de la letra 
en estas impresoras depende del n0- 
mero de puntos que forme la matriz, 
y la separaci6n que haya entre ellos. 
La mejor calidad la Iogra realizan- 
do dos pasadas en cada linea, impri- 
miendo Io mismo pero un poco m6s 
abajo. Esto forma caracteres m6s 
gruesos y legibles. Adem6s, estas im- 
presoras tienen distintos juegos de le- 
tras y caracteres gr6ficos que se se- 
leccionan por Softwarre, cosa para 
la que las de margarita necesitan de 
un cambio de la pieza impresora. 
La impresora del Amstrad PCW8256 

es matricial, y escribe con dos cali- 
dades de letra. La Ilamada de <alta 
calidad)) escribe con una matriz de 
19 por 24, obteniendo una calidad 
de impresi6n cercana a la de marga- 
rita, pero con una velocidad de 20 
caracteres por segundo, Io que resul- 
ta bastante lento. Por otra porte, la 
escritura de calidad normal trabaja 
con una matriz de 9 por 12 a una ve- 
Iocidad de 90 caracteres por segun- 
do. Esta modalidad es un poco m6s 
rpida aunque no Ilega a los 140 ca- 
racteres por segundo que alcanzan 
la mayoria de las impresoras de es- 
te tipo. Desde luego, listar un pro- 
grama largo en alta calidad es co- 
mo ira darse un paseito. Eso si, que- 
dar6 casi perfecto. 

I Casi, casl. I 
una imprenta 

Adem6s esto se puede combinar 
con otras caracteristicas muy intere- 
santes. El tamao de una letra pue- 
de seleccionarse a voluntad, asi co- 
mo la separaci6n entre las lineas, 
m6rgenes', etc. Y combinando esto 
con la calidad y el estilo de las letras, 
se pueden hacer multitud de varian- 
tes. En el cuadro adjunto se pueden 
observar algunas de elias. Posee 8 
uegos distintos de caracteres, seg0n 
a nacionalidad que se elija, de ma- 
nera que en espaol tenemos letras 
acentuadas, la i, etc... Estos distintos 
juegos de caracteres, como casi to- 
das las funciones de la impresora, se 
seleccionan a trav.s del sistema ope- 
rativo CP/M. 
Con respecto a los botoncitos que 
normalmente llevan las impresoras, 
en sta la originalidad estriba en que 
no los Ileva, maniobr6ndose a travs 
del ordenador. AI apretar la tecla 
IMPR dentro de cualquier programa, 
se entra autom6ticamente en el es- 
tado de control de la impresora, 
apareciendo en la 01tima linea del 
monitor diversas funciones a reali- 

22 /ctoo AMSTRAD 



zar. Estas funciones se seleccionan si- 
tuando el cursor encima de elias, y 
apretando la tecla + para activar- 
las y -- para desactivarlas respecti- 
vamente. Adems de las funciones ti- 
picas de avanzar el papel una linea 
o una pgina, se puede seleccionar 
la calidad de impresi6n y otra opci6n 
curiosa e interesante: HEX que hace 
a la impresora no escribir los carac- 
teres que se le mandan, sino los c6- 
digos ASCII correspondientes. Los 
valores que estn implicitos al inicia- 
lizar la impresora se pueden variar 
mediante el comando de CP/M PA- 
PER. Los valores que se pueden fijar 
son: Longitud de hoja, paso de linea, 
salto de fin de p6gina, hojas sueltas 
e ignorar la sepal de fin de papel. 
Ya por programa, de forma muy 
similar a la de las impresoras EP- 
SON, se seleccionan las modalida- 
des de impresi6n. El tamao de la le- 
tra puede ser de seis modalidades di- 
ferentes, y adems se pueden mez- 
clar entre si, para guardar la propor- 
cionalidad. Aparte de esto, escribe 
subindices y superindices, y en carac- 
teres subrayados. La posibilidad de 
programar nuevos tipos de carate- 
res por software ha hecho que algu- 
na casa inglesa ponga ya a la ven- 
ta, en Inglaterra por ahora, progra- 
masque crean nuevos tipos de letra. 
Las posibilidades pues, en este as- 
pecto, son muy grandes. 

DE$CRIPCION 
TECNICA 

IMPRESION: 
"IECNOLOGIA: Matricial. 
MODO ..... : Bidirectional. (Texto) 
U nidireccinal. (Grdficos) 
VFLOCIOAD • : 20 cps en Alta Calidad. 
90 cps en Calidad Nor- 
mal 
MATRIZ ..... : 19x24 en Alta Calidad. 
9 x 12 en Calidad Nor- 
.IUEGO 
CARAC'fERS.: 159 caracteres irnprimi- 
bles. 8. variontes de idi0- 
ESPACIADO..: 1/8" 1/6" y 7172" 
n/72" y n/216" prograo 
mables. 
PAPEL.: 
TIPO ....... : Hojas suelas o papel 
contlnuo 
M6xima de 11" 
ANCHURA ..: 
Fricci6n o tracci6n. 
ARRASTRE . .: 
INT|RFAO:o: Centr0nics. 
BUFFER°: Capacidad ..: 2 Kb. 

La impresor tambi6n puede rea- 
lizar gr6ficos de dos tipos. Los de do- 
ble densidad dividen la linea en 960 
puntos resultando de mayor calidad 
mientras que los de densidad normal 
la dividen en 480 puntos. La mane- 
ra de programar gr6ficos es la ha- 
bitual en este tipo de impresoras, Io 
que no quiere decir que resulte f6cil. 
Primero hay que traducir la figura a 
nOmeros hexadecimales, luego man- 
dar a la impresora el nOmero de da- 
tos que se va a imprimir, junto con 
los c6digos de impresi6n de gr6ficos, 
y por fin mandar el grfico en si. 
La alimentaci6n de hojas sueltas de 
papel se hace de manera autom6ti- 
ca, resultando esto simple y extrema- 
damente c6modo. Para alimentarse 
de papel continuo por tracci6n, hay 
que incorporar un accesorio que es 
la guia de ruedas dentadas. Su mon- 
taje es r6pido y muy f6cil. Tanto con 
uno como con otro papel, el funcio- 
namiento de la impresora es irrepro- 
chable. 

i Cuesti6n de espacio 

El tamafio de la impresora es otro 
punto a su favor, siendo 6sta bastan- 
te pequefia, con Io que su colocaci6n 
en cualquier sitio es bastante f6cil. 
En cuanto al manual de intruccio- 
nes, explica los distintos comandos 
de una manera ms que suficiente 
para el que ya haya manejado otra 
impresora, aunque al profano quiz6 
le venan algunas cosas un poco 
((granaes)). 
La conclusi6n que se puede sacar 
de este an61isis es que Amstrad ha 
acertado en la elecci6n de la impre- 
sora para procesar textos. Aparte de 
algunas cosas del manejo, de las que 
es cuesti6n de acostumbrarse, la ca- 
lidad y las posibilidades que ofrece 
son muy satisfactorias. Como impre- 
sora para otros cometidos.., depen- 
de. Para programas que necesiten 
listados grandes resulta bastante len- 
ta. Esto puede set un punto en con- 
tra. Sin embargo, si el tiempo no es 
problema o los listado no son muy 
grandes, la impresora cumple su co- 
metido perfectamente. 



Control de la 
impresora a tray,s del 
Mallard Basic 

Para controlar la impresora en 
programas escritos en Basic hay que 
mandarla ciertos c6digos de control. 
Estos c6digos de control se incluyen 
en comandos LPRINT y separados 
por ";". 

GRAFICA COAl LA 
IMPRE$ORA PCWt56 

Tipos de letra 
o travs 
de Locoscript 

El procesador de texto Locoscript 
proporciona varias combinaciones 
para Ilegar al tipo de letra que se de- 
sea. 
Por un lado se puede seleccionar 
el tamafio de la letra. Esto se hace 
a travs del submenO "Tipo de le- 
tro" (Tecla de funci6n F4). Los posi- 
bilidades de este menO son: 
-- Media altura -- Paso entre 10 y 17. 
-- Cursiva. -- Paso proporcional. 
El paso proporcional da a cada le- 
tra una anchura proporcional a su 
tamafio. Es decir que la "1" ocupa- 
r6 menos que la "W" por ejemplo. 
La opci6n de Media altura propor- 
ciona la posibilidad de escribir subin- 
dices y superindices. 
Cada uno de estos tipos, se puede 
seleccionar en ancho normal o doble 
ancho. Esto hace queen realidad po- 
damos elegir entre 16 anchos dife- 
rentes de letra. 
Cuando se selecciona uno de estos 
tipos de letra, la pantalla no cambia 
de tipo de letra, pero si cambia la 
Iongitud de la linea. Los caracteres 
de cada linea en la pantalla son los 
que imprimir6 Locoscript, y aunque 
en la pantalla no salgan alineados 
por la derecha, en la impresora si 
saldr6n. 
Otra posibilidad complementaria 
a sta es la del men6 de nfasis. Es- 
te meng ofrece la posibilidad de su- 
brayar un texto entero, s61o las pa- 
labras del texto, escribir en letra 
gra)) y ((doble impresi6n)h 

PASOS OE LINEA 
1/8 de pulgada .................. : 
1/6 de pulgada .................. : 
7/72 de pulgada ................. : 
n/256 de pulgada ................ : 
n/72 de pulgada ................. : 
MARGENES 
Margen izquierdo ................ : 
Margen derecho ................. : 

ESC O=CHRS (27); "0"; 
ESC 2=CHR$ (27); "2"; 
ESC I=CHRS (27); "|"; 
ESC 3 n=CHRS (27); "3"; "n"; 
ESC A n=CHR$ (27); "A"; "n"; 

ESC 1 n=CHRS (27); "1"; "n"; 
ESC Q n=CHR$ (27); "Q"; "n"; 

AI establecer los m6genes, hay que tener en cuenta el tipo de letra en la que se va a escribir, n ser6 
la posici6n a partir de la cual imprima, considerando la anchura del tipo de letra en vigor en ese momento. 
TABULADORES 
Se puede establecer un m6ximo de 32 posiciones de tabuJaci6n. La columna 0 es la primera a la 
derecha del margen izquierdo, y a partir de sta, n ser6 el nOmero de la columna en la que queramos 
un tabulador. 
El comando es CHRS (27); "D"; CHR$ (n); 
Y el comando que hace avanzar lo posici6n de impresi6n hasta ese punto es CHRS (9). 
RETROCE$O DE CARRO 
EL c6digo CHRS (8) hace retroceder a la cabeza impresora una posici6n del ancho del tipo de letra 
que se est utilizando. 
RETORNO DE CARRO 
El c6digo CH RS (13) hace retornar a la cabeza impresora hasto el margen izquierdo. Si est6 selecciona- 
do el avance autom6tico de linea, avonzar6 tambi@n una linea. 
AVANCE DE LINEA 
EJ c6digo CRHS (10) efectOa un avance de linea, y la cabeza vuelve al margen izquierdo. 
El c6digo CHR$ (27); "¢R'; desactiva el avance autom6tico de linea. 
El c6digo CRHS (27); "LF"; activa el avance autom6tico. 
SENSOR DE FIN DE PAPEL 
FL c6digo CRHS (27)!,",8"; desactiva la serial que indica el fin del papel. 
El c6digo CHR$(27); 9 '; activa la sepal. AI acabarse el papel, suena un zumbido y la impresora 
deja de escribir hasta que se introduzca otra hoja. 
AVANCE DE PAPEL 
EL c6digo CHRS (12) hace que el papel avance hasta la p6gina sigulente. 
Para avanzar el papel una distancia determinada se utiliza el comando CHR$ (27); "J'; CHR$ (N); 
y n ser6 la distancia en nl276" 
LONGITUO OE PAGINA 
Se puede definir en lineas y en pulgadas. 
En iineas es CHR$ (27); "¢',',; CHR$ (n); 
En pulgadas es CHR$ (27); C'; "0"; CHRS (n); 
TIPO DE PAPEL 
Hoias sueltas CHRS (27); ",S,"; 
Papel continuo CHR$ (27); 'c"; 
En el modo de hojas sueltas la impresora espera hasta que se cambie de papel antes de seguir impri- 
miendo. 
SALTO DE FIN DE PAGINA 
Estahlece un margen inferior de n lineas, donde no escribe. 
CHRS (27); "N"; CHRS (n); activa dicho margen. 
CHR$ (27); "0"; Io desactiva. 

REINICIALIZA¢ION 
Para inicializar la impresora, y 
TIPOS DE LETRA ACTIVAR 
Estrecha ......... : CHR$ (15) 
Elite ............. : CHR$ (27); 
Proporcional ...... : CHRS (27); 
Doble ancho ...... : CHRS (27); 

Cursiva .......... : CHRS (27); 
AIta calidod ...... : CHRS (27); 
Doble impresi6n ...: CHRS (27); 
Negra ........... : CHRS (27); 
Superindices ...... : CHR$ (27); 

desactivar cualquier c6digo establecido CHRS (27); "@"; 
DESACTIVAR 
CHR$ (18) 

"M"; CHR$ (27); "P"; 
"p"; "I"; CHRS (27); "p"; "0" 
"W"; "1"; CHR$ (27); "W"; "0" 
"4"; CHRS (27); "$"; 
"m"; "1"; CHR$ (27); "m"; "0" 
"G"; CHRS (27); "H"; 
"E"; CHRS (27); "E"; 
"S"; "0"; CHRS (27); "T"; 
"S"; "I"; CHRS (27); "T"; 
"--I"; CHRS (27); "--0"; 

Subindices ........ : CHRS (27); 
Subrayado ....... : CHRS (27); 
JUEGOS DE IDIOMAS. 
Se seleccionan mediante CHRS (27); "R"; "n"; 

n es el nOmero del idioma y va desde 0 (EE.UU.) hasta 8 (Japdn), posando naturalmente pot el 7 
(Costellono). 
GRAFICOS. 
Para establecer el modo gr6fico, primero hay que saber cu6ntos dabs se le van a enviar a la impre- 
sora. Entonces se mandan los c6digos, y despuCs los datos en versi6n hexadecimal. 
Ooble densidad : CHR$ (27); "L"; CHRS (nl); CHRS (n2); 
Densidad normal . .: CHRS (27); "K"; CHRS (nl); CHRS (n2); 

Siendo n el ngmero de datos que se va a enviar, nl =n MOD 256 y n2=n/2S6. 
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Otro menO, el de Tama6o de pd- 
gina, nos permite optar por el tama- 
6o deseado, definiendo la Iongitud 
total de la p6gina, la zona de cabe- 
cera, la de texto y la de pie de p6gi- 
nao 
Esto resulta muy gtil para poner 
papel con membrete o definir nues- 
tra propia cabecera de impresi6n, 
numerar las p6ginas... 
El Oltimo men6 referente a la im- 
presora es el men6 de Opciones (F1). 

En 6ste se puede seleccionar la cali- 
dad de escritura, el tipo de papel 
(suelto o continuo), y si ignora la se- 
6al de fin de papel. Asimismo, des- 
de este menO tambi6n se puede de- 
finir la Iongitud de la hoja de 1/6", 
y cu6ntas lineas debe saltar al final 
de la hoja. 
Por Oltimo, pulsar la tecla IMPR ha- 
ce que entre en el estado de control 
de la impresora, en el que se pueden 
elegir las opciones descritas anterior- 
mente. 

TIPO$ DE E$CRITURA 
DE 1.4 IMPRE$ORA 
PCW826 

CAL. IDAD NORMAL 

Letra ESTRECHA 
F:'_aso F'ROF'LIRC TONAL 

ALTA CALIDAD 

Letea ESTRECHA 
Letra NORMAL 
Letra ELITE 
Paso PROPORC 101AL 
ANCHA 

[)OBLE :[ MF'RE:S I ON 

Letra ESTRECHA 
Let.ra NORMAl.. 
Letra ELITE 
Paso PROPORCIONAL 
AIx.IC:F 
ubindic 

LETRA NEGRA 

Letra ESTRECHA 
Letra NORMAL 
Letra ELITE 
Paso PROPORC IONAL 
ANCHA 
SuI: •    



LAS VARIABLES EN ,OOO 

En el ndmero 3 1 de AMSTRAD Semanal se 
public6 un art[culo acerca del lenguaje 
.Logo, a rnodo de introduction y 
preambulo, en el que se hoblabo de una 
serie de cosas de utilidad que nos 
Ilevar(n, paulatinamente pero sin 
detenernos, al dominio del lenguaje 

esta secci6n, que he- 
mos denominado ANALOGO, porque posee 
un enfoque muy parecido a la de ANALISIS, 
vamos a abordar el estudio del Logo desde el 
punto de vista de su aplicaci6n pr6ctica, y, 
concretamente, hemos preparado una serie de 
procedimientos que muestran tres conceptos 
muy importantes: 
- Logo es un lenguaje basado en proce- 
dimientos o subprogramas que pueden enla- 
zarse a nuestra convenienoa. 
- Dichos procedimientos pueden emplear 
part, metros, el equivalente de las variables en 
Basic. 
- Logo es un lenguaie recursivo por natu- 
raleza, esto es, un procedimiento puede Ila- 
marse a si mismo con los mismos par6metros 
o distintos que los iniciales. 
Perb vamos a empezar por Io m6s simple: 
el procedimiento n0mero 1 recordar6 los ejem- 
plos del articulo referido anteriormente; es 
muy sencillo: dibuja un cuadrado paso a pa- 
so, avanzando la tortuga 100 unidades, giran- 
do 90 grados y volviendo a avanzar; asi has- 
ta cuatro veces. 
Si observamos el procedimiento n0mero 2, 
veremos que realiza la misma funci6n, pero 
de una forma m6s elegante y 0til, porq.ue.po- 
demos invocarlo con dos par6metros: (.aao)) 
y <(6ngulo)), o sea, la Iongitud del lado de 
la figura y el 6ngulo que queremos que dichos 
lados formen entre si. Por tanto, una Ilamada 
del tipo: 
nuevo 100 90 
producirc el mismo efecto que Ilamar al pro° 
cedimiento n0mero 1, a cuadrado. 
No obstante, variando los valores pueden 
obtenerse una gran variedad de paralele- 
pipedos. 
El procedimiento n0mero 3 Ilamado (figu- 
ra), nos muestra el equivalente Logo de la 
secuencia de 6rdenes Basic: 

FOR I= 1 TO 4 

mediante el comando REPEAT, que va segui- 
do del n0mero de veces que queremos que se 
repita el proceso ('q), y de las instrucciones a 
las que el bucle va a afectar colocadas entre 
corchetes. 
Obsrvese, tambign, de qu manera tan 
simple un procedimiento se incluye dentro de 
otro: simplemente Ilam6ndolo por su nombre 
y colocando a continuaci6n de la Ilamada los 
par6metros que posee, si es que los tiene; en 
nuestro ejemplo son ((:lado)) y <:6ngulo). 
El procedimiento n0mero 4, nueva figura,, 
tan s61o difiere del anterior en que Ileva un pa- 
r6metro, una <<variablmb ms: 
Io cual nos permite controlar el n0mero de pa- 
sadas que dar6 el bucle antes de finalizar. 
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Por 0itimo, el procedimiento 5, recurfigu- 
rm, enseSa algo muy importante sobre Io que 
tendremos ocasi6n de volver en sucesivas oca- 
siones: la recursividad. 
En efecto, recurfigura, se llama a si mismo 
con los mismos par6metros, excepto en el ca- 
so de ¢:veces,, que toma el valor que tenia an- 
tes MENOS UNO. 
De esta forma, el procedimiento detecta 
cu6ndo tiene que finalizar su actuaci6n, al 
cumplirse la 
if:veces = 0 [stop] 
Este subprograma hace exactamente Io mis- 
mo que el n0mero 4, pero sin usar de bucle 
aiguno. La elecci6n entre bucle o recursividad 
a menudo es cuesti6n de gusto personal, pe- 
ro hay aplicaciones en las que sta es impres- 
cindible, concretamente las de Inteligencia Ar- 
tificial, que pueden abordarse en Logo f6cil- 
mente y de las que muy pronto hablaremos en 
profundidad: ensefiar a razonar a nuestro 
Amstrad mediante el Logo es algo mucho 
ms sencillo de Io que parece, iEsperad y 
veris! 

Procedlmiento n. o 1 Procedimlento n.  2 
to cuadrado to nuevo :lado :angulo 
cs d :lado 
d 100 rt :angulo 
rt 90 fd :lado 
fd 100 rt :angulo 
rt 90 fd :lado 
d 100 rt :anguln 
rt 90 d :lado 
d 100 end 
end 

to 

Procedimlento n. o 3 
Tigura :lado :angulo 

repeat 4 [nuevo :lado :angulo rt 45 fd 2 
0 ] 
end 
Procedimiento n. o 4 
to nuevafigura :lado :angulo :veces 
repeat :veces [nuevo :lado :angulo rt 45 

fd 20] 
end 

Procedlmienton.°5 
to recurigura :lado :angulo 
i :veces = 0 [stop] 
nuevo :lado :angulo 
rt 45 
fd 20 
recurfigura 
end 

:veces 

:lado :angulo :veces - 1 
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la feria m6s im- 
portante del OCIO de nuestro pais, 
tuvo lugaren Madrid de115 a123 de 
marzo. Nosotros, naturalmente, no 
quisimos perdernos el acontecimien- 
to y estuvimos alli. Fuimos con el af6n 
de encontrarnos todo Io nuevo del 
mercado, los mejores juegos, los me- 
jores joystick .... en resumen, todo 
aquello que de alguna forma tiene 
relaci6n con el uso de la inform6tica 
para Ilenar el tiempo libre. En un pais 
con un parque de ((Home ¢limpuo 
ters>> de medio mill6n de ordenado- 
res, es curioso, verdaderamente cu- 
rioso, que al preguntar en informa- 
ci6n por el pabell6n de inform6tica 
se nos dijese: 
Ordenadores? Pero... se ha con- 
fudido, eso es en el SIMO. 
Ante nuestras at6nitas miradas, no 
tuvo m6s remedio que respondernos: 
 . ,, . 
/ 
t ' , f 
': 

(Bueno.,. hay dos stands relacio- 
nados con el tema.>> 
Tras las explicaciones necesarias 
para encontrarlos, nos dirigirnos con 
la esperanza de dar con algo verda- 
deramente interesante. El primero de 
ellos no era otro que el stand de 
HOBBY PRESS; alli estaba, natural- 
mente, nuestra revista. Frente a 61 se 
encontraba ALSI, S.A., empresa de- 
dicada al desarrollo de software de 
gesti6n para el ATARI y el QL. Pudi- 
mos observar el nuevo modelo Plus, 
con un rnega de memoria central y 
una unidad de disco de tres pulga- 
das y media integrada en la 
unid-ad 
central. ALSI, se ha destacado pot 
haber sido una de las primeras com- 
paias en utilizar el disco como so- 
porte para sus programas de gesti6n 
realizados para el QL. Entre los pro- 
gramas que comercializa se encuen- 
tra Comercial 6, sofisticado control 
de Stocks y facturaci6n, y Alsicont, 
programa de contabilidad con todas 
las opciones tipicas de este tipo de 
aplicaciones. El precio de estos pa- 
quetes era de .52.000 pesetas para 
el primero y 35.000 para el segun- 
do. 
Nos habria gustado conversar con 
el responsable de ALSI, no ya tanto 

de los detalles de su pro- 
grama, como de la im- 
presi6n que la feria le 
ofrecia, asi como de las 
posibles causas que ha- 
bian provocado la ausen- 
cia del sector inform6ti- 

co. AI parecer un exceso de trabajo 
le impidi6 dedicarnos unos minutos, 
no obstante, nuestras felicitaciones a 
ALSI por haber estado, a nuestro jui- 
cio, donde tenia que estar cuando te- 
nia que estar, esto es, en I:XPO. 
OCIO. 
PROGRAMABLE... PROGRAMA- 
BLE... eran las palabras queen rojo 
parpadeante se leia en el stand de 
Garcia & Schman, atraidos por estas 
palabras nos acecamos con curiosi- 
dad. Se trataba de un nuevo sistema 
de publicidad basado en pantallas 
electr6nicas. El responsable del stand 
nos explic6 queen estas aparecia, 
bajo las condiciones que el usuario 
exigiese, el slogan publicitario que 61 
mismo programase en un cartucho 
de Eprom. La programaci6n era muy 
sencilla, mediante un teclado poco 
mayor que una calculadora, el anun- 
ciante ofrecia su texto con parpadeo, 
movimiento horizontal o vertical, 
etc... 
Despu6s de algunos detalles t6cni- 
cos que no vienen al caso, nos expu- 
so su disgusto por Io que 61 conside- 
raba insuficiente organizaci6n, asi 
como un trato en ocasiones algo 
marginal para el producto electr6ni- 
CO. 
Decididos a averiguar las razones 
que habian motivado la ausencia de 
productos inform6ticos, nos dirigimos 
a direcci6n con la intenci6n de hablar 
con el responsable de prensa y co- 
nocer la versi6n 
oficial del asunto. 

¢ 



Inmediatamente el responsable de 
prensa nos pas6, con el director ge- 
neral de |XPO-O¢IO, Antonio Palla- 
r6s. Muy agradablemente, la espe- 
ra no dur6 m6s de cinco minutos, al 
contrario de como suele ser norma 
en este pais, cuando se intenta ha- 
blar con este tipo de personas. En un 
despacho gris ceniza y durante po- 
co m6s de media hora, en un tono 
cordial y distendido, Antonio Pallao 
r6s intent6 explicarnos las razones 
que podian haber provocado este 
notable absentismo del sector infor- 
mctico. 

Y no vino nodie 

Se habian enviado 14.000 comu- 
nicaciones a todos los sectores que 
de algunas forma tenian cierta rela- 
ci6n con el ocio. 
De estas 14.000, se recibi6 res- 
puesta afirmativa de alrededor 
2.000. Volumen, cuantitativamente 
hablando, m6s que suficiente para 
cubrir una feria de estas caracteris- 
ticas. La total falta de inter6s del sec- 
tor inform6tico, habria que buscar- 
Io posiblemente, en la temprana 
edad de este producto, en el que a0n 
ni se han agotado, ni se tiene nece- 
sidad de recurrir a estrategias de 
mercado m6s sofisticadas para man- 
tener un potencial de ventas Io sufi- 
cientemente importante, como para 
que ste no quede sumergido en una 
apatia irremediable. Nos manifest6 
tambi6n Io que podria haber sido un 
exceso de confianza por parte de la 
organizaci6n, en la parte informcti- 
ca del mercado, centrando mcs la 
atenci6n en otros sectores que por su 
car6cter menos general, necesitaban 
un esfuerzo superior para Iograr su 
confianza e inter6s. Cuando el error 
estaba ms que confirmado, ya era 
tarde para plantearse una politica 
mcs activa, que pudiese remediar la 
apatia que las empresas de softwa- 
re y hardware han parecido mostrar, 
ante un evento de las dimensiones de 
EXPO-O¢IO. Habriamos querido 
contrastar la opini6n oficial, suminis- 
trada por la organizaci6n, con las 
compaias que nosotros pensamos 
debieran haber estado alli y no es- 
taban. La proximidad de las vacacio- 
nes debe de haber sumido a todos en 
una especie de angustia generaliza- 
da, de forma que nos ha sido total- 
mente imposible encontrar una voz 
autorizada, que nos diese una raz6n 
de esta ausencia. 

iCielos!, un modem 

Con el convencirniento de que no 
ibamos a encontrar nada, dirigimos 
nuestros pasos en tono distendido, 
por los innumerables stands de 
EXPO-OCIO con ojos curiosos. Ca- 
ravanas de caravanas, articulos de 
camping, y sobre todo herramientas 
de bricolage. Despu6s de mucho pa- 
seo dimos de bruces con el stand AZ- 
PLAN, empresa que distribuye NCR 
y que en este caso exponia un ma- 
ravilloso modem, el TAMRA MP 
1200, conectable a cualquier orde- 
nador con salida RS 232. Sus presta- 
ciones eran m6s que increibles, es 
posible marcar desde el teclado del 
ordenador, e incluso la Ilamada se 
puede realizar desde programa, con 
Io que el ordenador puede ponerse 
en comunicaci6n con otro a muchos 
kil6metros de distancia, alas tres de 
la madrugada y cada cinco minutos, 
mientras nosotros descansamos tran- 
quilamente. Lo decepcionante, es su 
precio, fuera totalmente de las posi- 
bilidades de nuestra familia CPC, ya 
que no existe raz6n t6cnica para 
pensar que no pueda ser utilizado 
pot nuestro Amstrad. 
Descubrimos tambin un fichador 
autom6tico, conectable a cualquier 
compatible PC, acompaado por un 
disco duro. La casa que Io distribuia 
era Comtel. El aparato en cuesti6n 
disponia de dos versiones, una ton- 
ta, y otra inteligente con una memo- 
ria de 32 K y que una vez transcurrio 
da la jornada transmitia los datos al 
disco duro a trav6s del PC. De esta 
forma el ordenador podia utilizarse 

para 
otros meneste- 
res a Io largo 
de la iornada. 
Poco m6s puede 
citarse de inter6s inform6tico, 
salvo un digitalizador de ima- 
gen que a trav6s de un orde- 
nador y de un plotter especial 
imprimfa cualquier imagen en 
una camiseta, y un analizador de 
personalidad mediante un estudio 
grafol6gico de la firma, serla muy in- 
teresante saber c6mo el programa 
que manejaba el ordenador recono- 
cia las curvas de una firma, aunque 
esto naturalmente nos fue imposible 
averiguarlo, pues alli Io 0nico que 
habia, naturalmente, era una opera- 
dora. 

Resumiendo... 

Y nada mcs puecie decirse en Io 
que a inform6tica se refiere. El resto 
es interesante, si, para aquellos que 
consideran el ocio como parte fun- 
damental de su vida. En una socie- 
dad donde cada vez m6s, la m6qui- 
na sustituye al hombre, el que olvi- 
de el ocio se convertir en ocioso. 
Desde aqui nuestro tir6n de orejas 
por la ausencia de este ao, pero so- 
bre todo nuestro aliento y 6nimo pa- 
ra que el afio que viene, fabricantes, 
distribuidores y comerciantes del 
mundo inform6tico est6n en EXPO- 
OCIO. Que no olviden que Espafia 
es el tercer pais de Europa en orde- 
nadores dom6sticos y que hoy por 
hoy, manana m6s, el ordenador do- 
mstico cubre el tiempo libre de m6s 
de medio mill6n de personas en 
nuestro pais. Gentes que pasan sus 
fines de semana delante de un mo- 
nitor, agarrados a un joystick o sim- 
plemente haciendo esos pequefios 
programas que con el tiempo pue- 
den Ilegar a convertirse en verdade- 
ras maravillas. 
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• Capacidad de Memoria de 80 K RAM , Teclado de disefio ergon6mico, con 296 por 152 puntos, con 16 colores 
y 32 K ROM, con el int6rprete de tedas numricas independientes, disponibles. 
BASIC (MICROSOFT)incorporado. • G 6fico de alto resoluci6n: red de o Conexiones para TV, monitor, unidad 
de disco de 320 K. (induido sistema 
Aqu[y hOr, y°perativ° Cp/M), impresora, a s-tt-cartuchos MSX. 
I o Conector para dos Joysticks. 
• Ordenador MSX 
cOn toda su pot-ncl. 

738 , ....... t 

• Sistemas operativos: CP/M, 
MSX-BASIC y MSX-DOS. 
• Con una memoria de 80 K RAM. 
. Unidad de disco de 3' 5','integrada 
en la consola del teclado. 
• Dos puertos de conexi6n: RS232.C 
y Parclelo Centronics. 
' Salidas diredas a televisor y monitor. 

lli;:l:;ll I I I-i i I-- 
1, I11; I1,1 i 1,1;| I'I 
i Io1.,I.1.111-1,,I,1.1,1| [II I 
14-Ii,i,1,1 1..,1"1"1.1 I 
FIq il -- 

• Admite directamente la conexi6n de 
una segundo unidad de disco, sin 
necesidad de interface o cartucho 
de ampliaci6n de memoria. 

• os,b,hoad de operar en 40 6 80 
columnas sin necesidad de cartucho. 
• Transporte c6modo: asa inc. .o odO 
y maletin d- t anslot-. 
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Desde ahora SVI-Spectravideo 
est6 aqui'. 
Con toda la potenaa de su nombre 
y su organizaci6n mundial, con toda 
su tecnologia de futuro. 
SVI-Spectravdeo marca 1 
comienzo de una nueva era. ,. 
Muchas cosas se van a quedar en 
el pasado. 
Y, probablemente, nada ser6 
igual a partir de ahora. 
Con SVI-Spectrawdeo, la vida 
diaria puede hacerse m6s sencilla, 
con m6s posibilidades, m6s divertida 
y excitante, tanto en casa como en el 
trabajo. 

Porque, desde ahora, y para 
el futuro, puedes contar con SVI- 
Spectrav[deo, Espaa. 
Aqui, con toda su potencia. 
Y, siempre, muy cerca de ti. en 1.500 
puntos de venta 
SVI-Spectravideo, Espaa, 
ignifica la :m6s avanzada tecnologa, 
mantenid, po -I s-rvicio tcnco 6s 
exigente y eficaz, en: 
Ordenadores. Perifricos y 
accesori, s. J. ysticl. Ju. - - s 
electr6nicos. Sonido Hi-Fi. 



Programa realizado por Antonio Leria Ortega 

Esta semana Serie Oro os va a deleitar 
con un programa de guerra submarina, 
entretenido y activo a m6s no poder. A 
ver qui(n es capaz de hundir m6s 
barcos, con pocos disparos y en el 
m;nimo tiempo. 

programa apro- 
vecha una de las facilidades m6s im- 
presionantes del Locomotive Basic. 
La posibitidad de manejar las inte- 
rrupciones. 
Disponemos de cuatro temporiza- 
dores que nos habilitan para hacer 
que una determinada rutina se eje- 
cute cada cierto tiempo. Este mto- 
do se conoce como manejo por in- 
terrupci6m>. El programa principal se 
ve interrumpido por la rutina ((inte- 
rruptora, se detiene, se ejecuta la 
rutina secundaria y una vez ejecuta- 
da devuelve al control a la principal 
que continOa desde el punto exacto 
donde se qued6 en un principio. Si 
la velocidad con que se realiza este 
complejo proceso es suficientemen- 
te r6pida, como de hecho se inten- 
ta, el observador piensa que mcs de 
una tarea se ejecuta al mismo tiem- 
po. 
Por otra parte, el programa cons- 
ta de una corta rutina principal o pri- 
maria que se limita a Ilamar a las se- 
cundarias, stas alas terciarias y asi 
sucesivamente. Para abandonar el 
bucle sinfin basta indicarlo en el mo- 
mento oportuno. 

Instru¢¢iones 

Las aguas del Pacifico constituyen 
el escenario de esta dura batalla na- 
val librada entre las tropas enemigas 
y tu minima flota de submarinos. Una 
misi6n suicida en la que hay que de- 
tener a toda costa el avance de la 
numerosa flota enemiga. 
32 ctooer AM$17tAD 

TO debes hacerles frente con los 
submarinos que capitaneas. Para Io- 
grar el objetivo dispones de un total 
de tres submarinos y un m6ximo de 
quinientos torpedos. 
Pero la tarea no es fEcil, los inva- 
sores no constituyen un blanco inm6- 
vii. Te responder6n con un nutrido 
fuego. Debes evitar en todo momen- 
to el contacto con las minas ya que 
causar6n tu destrucci6n. 
El mtodo adecuado para detener 
la invasi6n no consiste en aporrear 
el teclado, ni en mantener perma- 
nentemente presionado el fuego. Es 
mejor poner en pr6ctica una buena 
dosis de pericia y accionar las teclas 
de desplazamiento y disparo en el 
momento oportuno. 

Monejo 

El manejo del programa es extre- 
madamente sencillo. Existe la posibi- 
lidad de elegir Joystick o Teclado. Si 
se elige la primera opci6n el manejo 
est6 bastante claro. Si se elige la se- 
gunda ha de saberse que el subma- 
rio se mueve con el bloque del cur- 
sor existente en el extremo derecho 
y el fuego ser6 activado pulsando la 
tecla  .Si deseamos recibir 
instrucciones pulsaremos la tecla I. 
Puedes escribir tus iniciales. En un ins- 
tante se crea la pantalla y aparecen 
los diversos componentes de la esce- 
no. Existen una serie de indicadores 
que intentan facilitar tu ayuda. 
Has de saber que el nOmero de mi- 
siles que puedes disparar es limitado. 
Esta limitaci6n se controla con dos in- 
dicadores. Llamados Armas y Misi- 
les. Cada cinco misiles disparados se 
borra un cuadrado del indicador Ila- 
mado Misil. Como este indicador dis- 
pone de 10 cuadrados estar vacio 
cuando hayamos disparado 50. En 

VERDE 
220 

310 
610 

730 
1400 

COLOR 
210 

310 
650 

730 
1400 

COLOR $ 

MODE 1: INK 0,0: INK 
1,26: INK 2,18: INK 
3,0: BORDER O: PAPER 
O: PEN I:CLS 
INK 3,10 
INK 1,0: INK 2,0: PAPER 
2: PEN O: CLS 
INK 1,26: INK 2,18 
INK 0,0: INK 1,26: INK 
2,18: INK 3,10: BORDER 
10: PAPER O: PEN 1 

MODE 1: INK 0,0: INK 
1,20: INK 2,14: INK 
3,0: BORDER O; PAPER 
O: PEN 1: CLS 
INK 3,10 
INK 1,0: INK 2,0: PAPER 
2: PEN O: CLS 
INK 1,20: INK 2,14 
INK 0,0: INK 1,20: INK 
2,14: INK 3,10: BORDER 
10: PAPER O: PEN 1 



este preciso momento el indicador 
Armas borrar6 un cuadrado. AI mo- 
mento el indicador Misil se Ilenar6 y 
empezar6 el proceso de nuevo. En 
el momento que el indicador Armas 
se encuentre a cero no podr6s dispa- 
Far. 
Otro indicador de importancia es 
el de profundidad. En el momento 
que aparezca un cuadrado hueco la 
profundidad ser6 m6xima. Si inten- 
tas bajar m6s el submarino estalla- 
r6. Existen unos indicadores que nos 
', permiten conocer el n6mero de bar- 
cos hurdidos y el de aviones derri- 
. bados. Un barco hundido equivale 
 a un punto. Un avi6n derribado 
' equivale a diez puntos. 
En la porte superior se encuentran 
• Iosindicadores cl6sicos. Nombre del 
jugador, rcord, puntos y vidas. 
.i Por Oltimo intenta poner en pr6c- 
tica una buena dosis de pericia y es- 
 pirituaventurero. Laaventuraduer- 
 me con nuestro programa. 
 A Divertirse. 

 lniciolizo C6digo 
TiMo de/programa. 
Inslrucdones. 
Elecddn de ledado o joystick. 
',., Establece ddo sin fin. 
,,= Crea la panlalla de juego. 
Inicializa los indicadores. 
 Eslablece en cido 
equivolente o los vidas. 
 Idem. 
,. . , Idem. 
luntuad6n oblem'da. 

10 "$*$* P 0 S E I D 0 
20 "*$* Pot 
30 '*$I P.C.A. & A.L.O. 
40 '** Febrero 1986. 
50 80SUB 150:' Codigo Maquina 
60 GOSUB 210:' Presentation 
70 WHILE -I 
80 GOSU8 990:' Pantalla 

90 WHILE vidas 
100 GOSUB 17201' Movimiento Subma 
rind 
11'0 GOSUB 2240:'* Movimiento Enemi 
go ** 
120 WEND 
130 BOSUB 2570:'* Fin * 
140 WEND 
150 'I Codigo Maquina  
Ib0 MEMORY &gCOE 
170 RESTORE 180:FOR i=&gE34 TO &gE3 
A:READ j:POKE i,j:NEXT i 
180 DATA &CD,&60,&BB&32,&40,9&C 
9 
190 copy=&gE34 
200 RETURN 
210 ' Presentation  
220 MODE I:INK OO:INK 126:INK 
8:INK 3,0:BORDER O:PAPER O:PEN I:CL 
S 
230 LOCATE 1,25:PEN 3:PRINT "POSEID 
240 FOR i=16 TO 2 STEP -i 
250 FOR =0 TO 128 
260 IF TEST(3i) THEN SOUND I502: 
PLOT 64+j*4,336+i*4I:PLOT 72+j.4,3 
28+i ,4 2 
27O NEXT j 
280 NEXT i 
290 LOCATE 125:PRINT SPACES(12) 
300 m$="FIN DE LA TRANSMISION.":PEN 
1:FOR i=10 TO 31:FOR j=O TO IO:NEX 
T j:LOGATE i,7:PRINT MID$(m$i-9,1) 
 :SOUND 1,402:NEXT i 
310 INK 3 I0 
320 LOCATE 2II:PEN I:PRINT "Pulsa: 
330 LOCATE 214:PEN 2:PRINT "I ":P 
EN 3:PRINT "para Instrucciones." 
340 LOCATE 2I:PEN 2:PRINT "K ":P 
EN 3:PRINT "para Teclado de Cursor. 
350 LOCATE 218:PEN 2:PRINT " ":P 
EN 3:PRINT "para oystick." 
360 j=199:i-O:kyl=O:ky2=O:ky3=O:ky4 
-0 
370 ENV 1,123s8-250 
380 WHILE i-O 
390 j-j+I:IF j=200 THEN j=O:SOUND I 
090I " - 
400 IF INKEY(47)=O AND kyl THEN i=1 
410 IF gOY(O)=16 AND kyl THEN i-I 
420 IF INKEY(37)-O THEN GOSUB 510:G 
OSUB 860 
430 IF INKEY(45)=O THEN GOSUB 570:G 
OSUB 860 
440 IF INKEY(35)-O THEN 630 
450 WEND 
460 SOUND 1+128O:RESTORE 480 
470 FOR i-1 TO 15:READ j:SOUND 1,j, 
IO:NEXT i:SOUND I11950 
480 DATA 
,89 80 95,89s I0 95 
490 LOCATE 1 1:PRINT STRING$(25 11) 
500 RETURN 
510 " Initiation Cursor 
520 PEN 2:PRINT CHR$(24):LOATE 2I 
6:PRINT "K":PRINT CHR$(24) 
530 kyl-8: ky2=l: ky3-O: ky4=2:ky5-9 
540 LOCATE 525:PEN 2:PRINT "Para c 
ontinuar pulsa "; 
550 PEN 1:PRINT "<ESPACIO>" 
560 RETURN 
570 '* Initiation Joystick 
580 PEN 2:PRINT OHR$(24):LOCATE 21 
8:PRINT "":PRINT CHR$(24) 
590 ky1=74: ky2=75: ky3-72: ky4=73:ky5 
=76 
600 LOCATE 525:PEN 2:PRINT "Para c 
ontinuar pulsa 

610 PEN 1:PRINT "<FUESO> " 
620 RETURN 
60 '* Instruction,s 
64 WINDOW I4,6s?5:F'EN 
650 INf I.O:INK ?.O:PAPER 2:PEN 
LS 
660 PRINT:PRINT:PRINT " Te encuentr 
as al mando del submarino.":PRINT 
670 RRINT " El peligro te acecha pc 
r todas partes.":PRINT 
680 PRINT " Dispones de ires submar 
inos POSEIDON.":PRINT 
690 PRINT " Tu mision es destruir 
a flora enemlga y sus poderosos bo 
mbarderos.":PRINT 
700 PRINT " Para derribar los bo 
mbarderos debes situarte en la su 
perficie.":PRINT 
710 PRINT " Oidado con el uego 
enemigo. Vigila las armas y la pro 
fundidad." 
720 WHILE INKEY$<>"":WEND 
70 INK 1,26:INK 2,18 
740 PLOT 1.1:DRAW 638,1,1:DRAW 
318:DRAW Is31S:DRAW lsI 
750 PI OT I32DRAW b4032,0:PLOT 
14,1:DRAW 639I4:PLOT 1,34:DRAW 
,34 
760 m$-" PULSA UNA TECLA 
SUERTE'! ":n$-m$ 
770 PARER O:PEN I 
78 WHILE INKEY$="" 
790 LOCATE 1,19:PRINT n$ 
800 n$=MID$(m$,239)+LEFT$(m$,1) 
$10 m$-n$ 
80 PAPER O:PEN 
840 WINDOW 1,40, I,25 
850 GOTO 
860 ' Input 
870 LOCATE 621:F'EN :PRINT "Escrib 
e tus iiciales: ..... " 
88(; LOCATE 2,21:WHILE INKEY$<>"":W 
END:CALL 
890 i ¢'$=" ": hombreS="" 
90 WHILE ik$<>" " AND 
910 IF ik$=CHR$(127) AND LEN(nombre 
$) THEN nombre$=RIGHT$(nombre$,LEN( 
nombre$)-1):PRINT CHR$(S):OHR$(16); 
".":CHR$(8); 
920 IF ik$<"1" OR ik$>"" THEN 950 
930 I (N(nombre$)4 THEN 950 
940 PRINT UPPER$(i;$);:nombre$=UPPE 
R$(nombre$+ik$) 
950 ik$-INKEV$ 
960 WEND 
70 CALL ,B84 
9RO RETURN 
990 '** Pantalla 
1000 RANDOMIZE TIME 
1010 xs-20:ys=1&:xb=20:yb 11:ya=8:v 
idas=3:pO l:p1=1:p2=1:p$=1:puntos-O 
:nbt-O:cbt=10:cml O:cm2 10:har=O:av 
=0 
1020 GOSU8 1440 
1030 MODE i 
1040 WINDOW #II40I6 
1050 WINDOW #21407,11 
1060 WINDOW #3i401222 
1070 WINDOW #4ol,402325 
1080 PAPER #I,3:PEN #I2:CLS #I 
1090 PAPER #2I:PEN #23:CLS #2 
1100 PAPER #32:PEN #3,1:CLS 
1110 PAPER #43:PEN #4,2:CLS #4 
1120 MOVE 0.48 
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1130 FOR i= TO 640 STEP I0 
1140 Iin=52+RND(1)20 
1150 DRAW ilin1 
1160 DRAW i+248,1:DRAW i+llin 
1170 DRAW i+4748,1:DRAW i+2,1in 
1180 DRAW i+6,481:DRAW i+3,1in 
1190 DRAW i+8,4S, I:DRAN i+471in 
1200 DRAW i+10,4871:DRAW i+5, lln 
1210 NEXT i 

1220 PLOT 1396:DRAW 638,596,1:DRAW 
638308:DRAW 17308:8RAW I396 
1230 PLOT I.I:DRAW 639,1:DRAW 639,4 
6:DRAW 1746:DRAW 1,1 
1240 PLOT 6,4:DRAW 3584:DRAW 3584 
3:DRAW 643:DRAW 64 
1250 PLOT 3644=DRAW 6334:DRAW 633 
743:DRAW 36443:DRAW 36474 
1260 PLOT 6,354:DRAW 67392:DRAW 
,392:DRAW IO0354:DRAW 635# 
1270 PLOT I06354:DRAW I06392:DRAW 
292392:DRAW 292,354:DRAW I06354 
1280 PLOT 298,554:DRAW 298392:DRAW 
484,392:DRAW 484754:DRAW 298,354 
1290 PLOT 490,354:DRAW 490,392:DRAW 
632,392:DRAW 632,354:DRAW 490354 
1300 PLOT 6,550:DRAW 6312:DRAW 160 
,312:DRAW 160,350:DRAW 6.350 
1310 PLOT 166350:DRAW 166312:DRAW 
320,312:DRAW 320.50:DRAW 1667550 
1320 PLOT 3267350:DRAW 326,312:DRAW 
6327512:DRAW 632350:DRAW 326350 
1330 LOCATE #1,22:PRINT #1nomhre$ 
:LOCATE #17872:PRINT #1,"Record:": 
PEN #1,1:PRINT #1,record 
340 PEN #172:LOCATE #1,20,2:PRINT 
#1,"Puntom:"::PEN #1,1:PRINT #17bar 
co:LOCATE #1,2.2:PRINT #1,prisub$( 
3) 
1350 LOCATF #4,2,2:PRINT #4,"Profun 
didad:" 
1360 LOCATE #42472:PEN #42:PRINT 
#4,"rmas:";:PEN #4I:PRINT #478TRI 
NG$(10CHR$(233)) 
1370 LOCATE #1.25:PEN #12:PRINT # 
lbar$;":";:PEN #1,1:PRINT #1bar 
1380 LOCATE #1I375:PEN #1,2:PRINT 
#1,avi$:":";:PEN #1I:PRINT #1av 
1390 LOCATE #1722,5:PEN #172:PRINT 
#1,"Misiles:"::PEN #1,1:PRINT #IS 
RINGS(I%?33) 
1400 INK OO:INK I26:INK 2718:INK 
3,10:BORDER IO:PAPER O:PEN I 
1410 LOCATE xs.y:PEN 1:PAPER 2:PRI 
NT subS:LOCATE ×byb:PEN O:PAPER i: 
PRINT barS 
142A PRINT CHR$(7) 
1430 RETURN 
1440  Caracteres 
1450 SYMBOL 24064961121271272 
397.0 
1460 SYMBOL 241.0,0120250255254 
725270 
1470 SYMBOL 24271,1,1437255234191 
,1573 
1480 SYMBOL 2431281281927252174 
252240,192 
1490 SYMBOL 244222314,255,1067 
63 
1500 SYMBOL 245,0,0128,1922247255 
174252 
1510 SYMBOL 246.0246060602460 
,0 
1520 SYMBOL 24772858237,37828 
572 
1530 SYMBOL 248,18,170,74164,1647 
4,170718 
1540 SYMBOL 249m255129129129129 
129,12%255 
1550 SYMBOL 250717363I1763,15, 
3 
1560 SYMBOL 25128128241255,87 
2537240192 
1570 mina$=CHR$(42) 
1580 bars CHR$(16)+CHR$(9)+CHR$(16) 
1590 av$-CHR$(240)+CHR$(241) 
1600 subI$=CHR$(242)+CHR$(245) 
1610 sub25=CHR$(250)+CHR$(251) 
1620 bar$=CHR$(244)+CHR$(245) 
1630 bom25=CHR$(246) 
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1640 ex15=CHR$(8)+CHR$(16÷CHR$(9)+ 
1650 ex$=CHR$(8)+CHR$(16)+CHR$(9)+C 
HR$(247)+CHR$248) 
1660 prm$=CHR$(249) 
1670 prisuh$(1)=SPACE$(6)+subl$ 
1680 prisub$(2)=SPACE$(3)+subl$+ .... 
subl$ 
1690 prisub$(3)=sub1$+" "+subl$+" " 
+subl$ 
1700 prisub$(O)=SPACE$(S) 
1710 RETURN 
1720 ' Movimiento Submarino  
1750 xsa-xs:ysa=ys 
174 msd=ABS(INKEY(kyl)) 
1750 msi=ABS(INKEY<ky2)) 
1760 ms=msd-msi 
1770 xs xs+ms 
1780 msar=ABS(INKEY(ky3)) 
1790 msab-ABS(INKEY(ky4) 
1800 ms2=msar-msab 
1810 ys=ys+ms2 
1820 IF xs>xsa THEN sub$=subl$ ELSE 
sub$=sub2$ 
1830 IF xs<1 THEN xs=l ELSE IF xs>3 

VARIABLES 

nS 
exlS 

sublS 

sub2S 
barS 
minas 
barS 
aviS 
nbt 
cbt 

cml 
cm2 
Vidas 
Copy 

kyl 
ky2 
ky3 

ky4 
nombreS 
X 
ys 

xb 
yb 
XO 
pl 
p2 
p3 
puntos 
bar 

OV 

Usa general. 

Caracteres gr6ficos de 
explosi6n, 
Caracteres gr6ficos del 
submarino. 
Car6cter del barco. 
Car6cter de la mina. 
8orrador. 
Car6cter del avi6n. 

Contadores de armas. 

Detecta el c6digo Ascii de 
un car6cter. 

Maneio del cursor o 
joystick. 

Recogida de caraderes del 
teclado. 
Coordenadas del 
submarino. 
Coordenadas del barco. 
Coordenadas del avi6n. 
Control de temporizadores. 
Idem. 
NOmero de barcos. 
NOmeros de aviones. 

9 THEN xs 39 
1840 IF ys<12 THEN ys 12 
1850 DI:LOCATE xs,ys:PAPER 2:CALL c 
opy:EI:coI$-CHR$(PEEK(&gc40)):DI:LO 
CATE xs+ITys:PAPER 2:CALL copy:EI:c 
o2$=CHR$(PEEK(&gc40)) 
186A IF cotS-minaS OR co2$-mina$ TH 
EN eiplo  ELSE explo-O 
1870 IF ysb20 OR explo THEN DI:ys-y 
s-ms2:LOCATE xsys:PAPER 2:PEN I:PR 
INT ex1$:EI:vidas=vidas-1:FOR i=O T 
0 10:SOUND 7,00051570,O5:NEXT i 
DI:LOCATE xsys:PAPER 2:PEN I:PRIN' 
T barS:LOCATE #I322:PEN #1,1:PRIN 
T #1,prlsub$(vidas):EI 
1880 IF p2=1 AND cbt THEN IF INKEY( 
kyS)>-1 THEN nbt-nbt+1:cm1=cml+1:p2 
ri:ho xs:mbo-ys-l:EVERY 0.2 GOSUB 
196r 
1890 IF cbt-O THEN LOCATE #I305:P 
RINT #1.SPACE$(IO) 
1900 DI:LOCATE ×saysa:PAPER 2:PEN 
1:PRINT barS:El 
190 DI:[.OCATE xsys:PEN I:PAPER 2: 
PRINT subS:El 
]920 pro$-STRING$(ys-II,CHR$(233))+ 
1930 F !.EN<pro$)>9 THEN proS-LEFTS 
4pro$S)+prm$ 
1940 DI:|OCATE.#4, I4,?:PN 
NT #4pro$:EI 
1950 RETURN 
1960  Bomba Submarino 
1970 IF nbt=50 THEN nbt-O:cbt=cbt-i 
1980 IF cml=5 THEN cml=O:cm2-cm2-1: 
DI:LOCATE #I30+cm25:PEN #1I:PRIN 
T #17CHR$(16:EI 
1990 IF cm2-O THEN cm2=IO:DI:LOCATE 
#1,30.5:PEN #1I:PRINT #t,STRING$( 
I0233):EI 
2000 IF cbt<>lO THEN DI:LOCATE #4,3 
O+cbt,2:PRINT #4,CHR$(16):EI 
2010 IF mbo<12 THEN avI-I:GOSUB 210 
0 ELSE avi-O 
2020 IF avi THEN IF ma ×ha AND ×ha< 
>I THEN z=REMAIN(3):DI:LOCATE maya 
:PAPER 1:PEN O:PRINT ex$:EI:FOR i-O 
TO IO:SOUND 7,4000,5, I570O5:NEXT 
i:DI:LOCATE maya:PAPER 1:PRINT bo 
r$:av-av+l:GOSUB 2190:LOCATE #1727 
2:PEN #1I:PRINT #1p$.ma=45:p3=lE 
I 
2030 IF avi THEN avi=O:RETURN 
2040 DI:LOCATE xbombo:PAPER 2:PEN 
1:PRINT CHR$(16):EI 
2050 mbo-mbo-1 
2060 IF mbo<12 THEN GOSUB 2100:p2 1 
:IF cbt=O THEN RETURN ELSE RETURN 
2070 DI:LOCATE xbo,mbo:PAPER 2:PEN 
I:PRINT bom2$:EI 
2080 RETURN 
2090 '$ Detecta Barco 
2100 DI:PAPER I:LOCATE xbo711:CALL 
copy:c$=CHR$(PEE((&9C40)):EI 
2110 IF c$<>CHR$<244) AND c$<>CHR$( 
245) THEN p2=I:z-REMAIN(2):RETURN 
2120 z=REMAIN(2):DI:LOCATE xbo, 11:P 
APER I:PEN O:PRINT e×$:EI 
2130 FOR i-O TO tO:SOUND 740005,1 
5,O,O,5:NEXT i 
2140 DI:LOCATE xboI1:PAPER I:PEN 0 
:PRINT barS:El 
2150 puntos=puntos+l:bar-bar+1 
2160 DI:LOCATE #1,272:PEN #1,1:PRI 
NT #1.USING"###"puntos:p2-1:El 
2170 DI:LOCATE #1,55:PEN #1,1:PRIN 
T #1,bar:El 
2180 RETURN 
2190 



2200 puntos=puntos+lO 
2210 p$-RIGHT$(STR$(puntos).3) 
2220 DI:LOCATE #1.16.5:PEN #1.1:PRI 
NT #1.av:El 
2230 RETURN 
2240 ' Movlmiento Enemigo 
2250 IF INT(Rt.dD(1)2)>O THEN RETURN 
2260 dua=dua-l:IF dua<l THEN dLa-IN 
T(RND(1)20):da-INT(RND(1)2) 
2270 DI:LOCATE ×b.yb:PAPER 1:PEN O: 
PRINT bor$:EI 
2280 IF da=O THEN ×b-xb+1 ELSE xb 
b-1 
2290 IF xb<l THEN ×b=:dua-INT(RND( 
;)IO:d=INT(RND(1)2) ELSE IF xb> 
39 THEN xb 39:dua-INT(RND(1)lO):da 
INT(RND(1)2) 
2300 DI:LOCATE xbyb:PAPER I:PEN 
PRINT barS:El 
2310 IF p3=l THEN IF INT((RND(1)IO 
0)+1)90 THEN p3=O:ma=I:EVERY 10,3 
GOSUB 2340 
2320 IF pO I THEN IF INT(RND(I)IO) 
>5 THEN pO O:bb×-×b:bby-12:VERY 10 
,0 808UB 2480 
2330 RETURN 
2340 
2350 DI:LOCATE ma,ya:PAPER I:PEN O: 
PRINT bor$:EI 
2370 IF ma>39 THEN z=REMAIN(3):p3=I 
:RETURN 
2380 DI:LOOATE ma.ya:PRINT aviS:El 
2390 IF pi=I THEN IF INT(RND(1)50) 
>I0 THEN papel-l:pluma=O:pl-O:bx ma 
:by ya+I:EVERY I0i GOSUB 2410 
2400 RFTURN 
2410 
2420 IF by+l>20 THEN z-REMAIN(1):pl 
=I:RETURN 
2430 D:LOCATE b×,by:PAPER papel:PE 
N pluma:PRINT HR$(16):EI 
2440 by-by+1 
2450 IF by>t1 THEN papel-2:pluma=O: 
IF INT(RND(1)IO)-5 THEN pI=I:z=REM 
AIN(I 
2460 DI:LOCATE bx.by:PAPER papel:PE 
N pluma:PRINT minaS:El 
2470 RETURN 
2480 ' Mina Barco 
2490 F bby÷1}20 THEN z REMAIN(O):p 
0 I:RETURN 
2500 DISLOCATE bb.bby:PAPER 2:PRIN 
T CHR(16):EI 
2510 bby-bby+1 

w ,q 
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Con el objeto de fomentar las relaciones entre los 
usuarios de AMSTRAD, MERCADO COMUN te ofrece sus 
p6ginas para publicar los pequefios anuncios que 
relacionados con el ordenador y su mundo se ajusten al 
formato indicado a continuaci6n. 
En MERCADO COMUN tienen cabida, anuncios de 
ventas, compras, clubs de usuarios de AMSTRAD, 
programadores, y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros lectores. 
Envianos tu anuncio mecanografiado a: HOBBY PRESS, 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Vendo programa de Contabilidad General para 
Amstrad con disco. Totalmente original. 
Prestaciones profesionales. Totalmente modificable. 
Adaptable a cualquier impresora paralelo. 450 
cuentas auxiliares, 99 cuentas mayores, 6.900 
apuntes por disco. Sin limite de apuntes. Jos6 Luis 
Muoz Trapero. Las Torres. Plaza Cejilla, 2 - 2. ° D. 
Jerez de la Frontera (Cdiz). 
Tel (956) 32 68 95 - 31 24 58. 
Programador y usuario de un Amstrad, 
ario contactar con uuario  cualqubr modulo 
Amstrad, para intrcombio cl cualqubr tipo d 
programas. Realizo programas a medida por 
encargo (Programas de gesti6n). Ponerse en 
contacto con: Miguel Angel Fanega L6pez de la 
Franca. C! Reyes Cat61icos, 1 - 1. ° A. Daimiel (C. 
Real) Tel. (926) 85 09 08. 
eeeeeeeeeeeeeeeeeeeeeeeeeeee 
Se intercambian juegos para el Amstrad 
CPC-464 con usuarios de Barcelona o provincia. 
LLamar de 15,30 a 17 h o de 21 a 22 h al Tel. 
212 42 84. Preguntar por Iv6n. 
eeeeeeeeeeeeeeeeeeeeeeeeeeee 
Cambio ordenador Amstrad CPC-464 monitor 
color en perfecto estado, m6s 30 programas 
comerciales, pot Amstrad CPC-664 monitor color 
pagando diferencia justa. Llamar al Tel. (93) 
212 42 84 de Barcelona. Preguntar por Iv6n. 
(Llamar de 21,30 a 22,00 h). 
ooeooooooooooooooooooooooooo 
Desear(a contactar con usuarios del 
Amstrad CPC-6128, en C6diz y su provincia. 
Interesados escribir a: Silvia Rodriguez Fern6ndez. 
Avda. Ram6n de Carranza, 22 - P. 6. ° D. 11006 
C6diz. Tel. 28 72 80. 

MICOHOBBY AMSTRAD ,35 



ALENDARIO)) 

Saber en todo momento el dla en que se vive es de vital 
importancia. Los dos programas quehoy nos envlan nuestros 
lectores pretenden ayudarnos a resolver este problema. 
Comparar y decidir por vosotros mismos. 

pot Adolfo Garcla Alonso 

• . a utilidad de este 
programa es el poder averiguar en 
qu6 dia de la semana cae una deter- 
mirada fecha introducida por el teo 
clado. 
En el programa he creado unas ta- 
bias (matrices) con los dias de la se- 
mana (semana$), los meses del afio 
(mesS) y los dias de cada rues (dfas). 
El programa pide que se introduz- 
ca la fecha a tratar (linea 60), de la 
cual obtiene el diay el mes (ffneas 
70-80), los cuales son verificados (lf- 
neas 90-110) en el caso de tratarse 
de una fecha imposible se imprime 
un mensaje de error (lfnea 170) de 
no ser asi se imprime el resultado (lf- 
nea 150). Donde realmente est6 el 
centro del programa es en las lineas 
120 a 140, en elias se calculan los 
dias transcurridos desde el 1 de ene- 
ro (td), y calculando el resto de divi- 
dir los dias entre 7 obtenemos el nO- 
mero del dia de la semana. Sustitu- 
yendo este nOmero en la tabla de los 
dias de la semana habremos averi- 
guado cu61 es el dia de la semana, 
que es Io que pretendiamos. 
Asi mismo el programa tambi6n 
imprime el mes correspondiente al 
nOmero de mes introducido, por el 
simple m6todo de sustituir este nOme- 
ro en la tabla de meses. 
La tabla con los dias de cada mes 
sirve para verificar que la fecha es 
correcta y para calcular los dias 
transcurridos desde el 1 de enero, su- 
mando los dias de los meses anterio- 
res y los dias del mes en cuesti6n. 
Espero que os guste el programa 
y que la explicaci6n haya sido clara. 
Con unos pequeos cambios se pue- 
de adaptar el programa a otro ao 
(en la tabla de los dfas de la semana 
el primer elemento debe ser el dfa 
anterior a! 1 de enero, o cambiar el 
nOmero de dfas de febrero en los 
aflos bisiestos) o remodelarlo todo 
para adaptarlo a todos los amos, eso 
ya es cosa de cada uno. 

fechaS Fecha 
dia Dia del rues introducido 
rues Mes introducido 
dias (mes) NOmero de dias del 
mess (mes) Nombre del 
semana NOmero del dia de la 
semana 
semanaS 
(semana) Nombre del dia de la 
td Total de dias desde el 1 
de enero hasta la fecha 

20-50 Dimensionado y creaci6n 
de tablas con los dias y 
nombres de cada mes y 
los dios de la semana 
Pide la fecha a tratar 
Obtiene el dia y el rues 
de la fecha introducida 
Comprueba que la fecha 
es correcta 
Obtiene el nOmero del 
dia de la semana 
Imprime el resultado 
Imprime mensaje de error 
si la fecha no es correcta 
Datas 

60 
70-80 
90-110 
120-140 
150 
170 
180-190 

I0 MODE 
3(} RESTORE 
40 FOR n I TO ?:READ 
n) :NEX F n 
50 FOR n 0 0 6:READ sE.mla$(n:NEX 
T n 
198b (DD/MN) ". fecha$ 
70 dia=VAl (MID$(fmcha$,I,2)) 
80 me VAI 
90 IF I EN(fech$)(>4 THEN I70 
I00 IF mes <I OR mes)12 THIN 170 
110 IF dreamt OE da".ds(m) THEN 
170 
120 td O: IF nes ) THEN 140 
130 FOR n-1 TO mes-1:td=td+dias(n): 
NEXT n 
140 semaf (td+da) IOD 7 
150 CLB:PRINT "El"d"d 
160 END 
170 CIS:PRINT "ERROR.Fechm 
ta": END 
IBO DATA 31.Enero,2B,Febreo,,1r 
o. 30, Abr l . 31. Mayo. 0, Jun 

36 iIcEoHoY AM$1"RAD 

Antonio Rodrguez Dominuez 
e introduce el rues y el 

ao cuyo calendario se quiere confeccionar, 
haci6ndolo en la forma MM/AAAA, y se ob- 
tiene en pantalla la hoja traditional del alma- 
naque. 
Para determinar el dia de la semana corres- 
pondiente al dia 1. 0 del rues, se halla el resto 
con respecto al divisor SIETE del nOmero si- 
guiente: d=int (365.25 a')+int (30.6001 
m')+l +5 
corresponde al dia 1 del mes 
constante 
Param=l orm=2 .................. 
a'=a-1 ................ m'=m+13 
Para m mayor de 3 ................... 
a'=a .................... m'=m+l 
Los dias de la semana y los restos respecto 
al divisor SIETE, se corresponden de la forma 

siguiente: 
LUN 
0 1 2 
MIE JU£ VIE SAB 
3 4 5 6 

En la f6rmula (I), el tercer sumando puede 
sustituirse por el dia del mes del que quera- 
mos saber a qu6 dia de la semana correspon- 
de. Luego hallariamos el resto de d respecto 
al divisor SIETE. 



Compatible con: SPECTRUM 
ATARI, COMMODORE, 
SPECTRAVIDEO, 
AMSTRAD, CANON 
y OTROS 

ystick 

P.V.P. 
RECOMENDADO 
(Ex .V.A.) 

CABLES 

PROTO Cable Centronics AMSTRAD 
Conecta al ordenador una impresora 
centronics 
3.200 Ptas. 

PROTO Cable 2 ' Unidad de Disco 
AMSTRAD 
Conecta al ordenador la 2 ' Und. de Disco 
2.000 Ptas. 

PROTO Cable Audio M.S.X. 
Conecta Magnet6fono a ordenad. M.S.X. 
950 Ptas. 

PIOTO Cable Audio AMSTtAD 
Conecta Magnet6fono a ord. AMSTRAD 
950 Ptas. 

PROTO Set de Cables Prolongadores 
AMSTRAD 8256 
Prolongador impresora y prolongador 
alimentaci6n 
3.750 Ptas. 

PROTO Set de Cables Prolongadores 
AMSTtAD 464 
Prolongador a]imentacin y prolongac]or 
monitor 
1.600 Ptas. 

PROTO Set de Cables Prolongadores 
AMSTRAD 664-6128 
Dos prolongadores alimenacin y 
prolongador monitor 
2.300 Ptas. 
Precios Ex IVA 

SERVICIO TECNICO 
DE REPARACION DE 
ORDENADORES 
REPARAMOS 
AMSTRAD 'onos .os on..os 
SPECTRUM 
COMMODORE 
TEXAS INSTRUMENTS 
SPECTRAVIDEO 

.J 

1i 



induda 
a!guna 

A travs de esta secci6n se pre- 
tende resolver, en la medida de Io 
posible, todas los posibles dudas 
que (atormenten) a todas los 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 
Semanalmente, aparecen en estas 
p6ginas las consultas de la mayor 
cantidad de usuarios posible; ella re- 
dundar6 en un mejor servicio y en 
un contacto m6s estrecho entre to- 
dos nosotros a tray,s de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

¢¢ENROLLANDO  > PANTALLAS 
Soy un aficionado a los ordenado- 
res Amstrad y leedor de vuestra re- 
vista, y aunque no tengo todavia 
uno, hago programas con el de un 
amigo mio, y para hacer algunos 
juegos me gustaria que me facilita- 
seis una rutina o Ilamadas para po- 
der hacer el SCROLL hacia los cua- 
tro lados. 
Nada mas tengo que decirle, s61o 
darles las gracias y la enhorabuena 
par la revista. 
Asterio Gonz61ez (M61aga) 
En el n6mero uno de nuestra revis- 
ta AMSTRAD ESPECIAb, que adn 
debe estar en los quioscos, podrds 
encontrar las rutinas necesarias pa- 
ra conseguir SCROLLS en las cuatro 
direcciones. 
Mediante un pequeflo programa, 
listado en el n6mero mencionado, 
padres expandir el Basic de tu Ares. 
trod incluyendo una instrucci6n que 
te permitird hacer muy fdcilmente los 
SCROLLS que pides. 

LOS JUEGOS 
COMERCIALES Y COMO 
PASARLOS A DISCO 
Les escribo a su secci6n de Sin du- 
da alguna para que me aclaren los 
siguientes dudas: 
Tengo un CPC-6128 y hace poco 
compr6 el juego Exploding fist, pero 
no consigo cargarlo; es que este 
juego no va con el 61 28? y si no va, 
por qu6 no Io indican los casas de- 
Bidamente coma hacen ustedes? Hay 
alguna manera de hacer que el jue- 
go carge, ,hay este juego en disco? 
En el manual del 6128 dice que se 
pueden pasar programas de cinta a 
disco utilizondo los discos de CPM, 
pero s61o se pueden pasar par este 
m6todo programas basic sin prote- 
ger. Se podria par alg0n otro m6- 
todo pasar programas de juegos co- 
merciales a disco?, no hay ninggn 
programa especial para esto?, tam- 
poco hay ninguna casa que se encar- 
gue de esto? 
Federico S6nchez (M6laga) 

EL Exploding Fish no es compati- 
ble con el 728 y no hay raz6n para 
pasarlo a disco, --siesto fuera 
posible-- pues no corre en 1. 
Referente a pasar programas co- 
merciales de cinta a disco es real- 
mente muy diffcil e implica la despro- 
tecci6n de los mismos, acercdndonos 
al tema de la piraterfa. 

PROGRAA4AS PARA 
EL CPC 664 
Soy poseedor de un Amstrad CPC 
664. Con la salida al mercado de 
nuevo modelo (6128), tengo la du- 
da sabre los programas que van a 
ir saliendo, los PCP 664 van a po- 
der utilizar los programas del CPC 
61287 
Sila respuesta es NO, qu6 vamos 
a hater nosotros con dos o tres pro- 
gramas existentes. 
Gracias y enhorabuena par la re- 
vista. 
Rafael Mirabal (Tarragona) 

Tranquilo Rafa, la casi totalidad de 
los programas para el 612 corren 
en el 664. Pero no obstante no olvi- 
des que tambi6n tienes una buena 
cantidad de programas de1464-472 
que funcionan en tu ordenador, aun- 
que tengas que ufilizar cinta. 

SOBRE EL CPC 472 
Varios amigos mos, par Navida- 
des se han comprado el Amstrad 
CPC <464. Pongo el n0mero entre 
comillas porque Io que realmente po- 
ne en la carcasa del teclado es CPC 
472, teniendo coma memoria RAM 
72K. 
Existe realmente un Amstrad 
72K? fTiene alguna caracteristica es- 
pecial respecto al de 64K? 
IfiakJ Izarra (Vitoria) 

Si, realmente existe el Amstrad 
CPC 472 aunque su Ilegada no fue 
realmente muy difundida. 
En cuanto a si tiene caracteristicas 
especiales, pues no, no las tiene. Pe- 
ro sf tiene una pega yes que las am- 
pliaciones de memoria no funcionan 
en 1. 

/ \ 

Corta y pega este cup6n en la casilla 
correspondiente de la p6gina 16 del 
n0mero 31 de AMSTRAD Semanal, 
una vez c.mpletada la pgina, 
envianosla junto con tus datos, iSUERTE! 

AMSTRAD Semanal comunica o todos 
sus tectores la apertura de una nueva sec- 
ci6n dedicada a recoger Jas mejores ideas 
que exploten al mximo los posibilidades 
del ordenadar, materializadas en progra- 
mas claros y cortos (m6xima 251ineas). Los 
mejores de entre todos elias sern publi- 
codas can el hombre de su autor en la re- 
vista, recibiendo coma premia, gratuita- 
mente en su domicilio los cuatro primeros 
nOmeros de nuestra cinla mensual. Los pro- 
gramas enviados deber6n incluir: 
-- Cinta de cassette con el pro- 
grama o programas grabados. 
--Explicaci6n cletallada del 
funcionamiento y prop6sito del 
programa, mecanografiado a 2 
espacios o con letra clara. 
Es imprescindible indicar en el sabre cla- 
ramente: AMSTRAD IDEAS. 
La direc¢i6n es: 
Hobby Press, S. A. 
La Gran/a, sin. 
Pol/gona Industrial de Akobendas. 
Madrid 



SOFTWARE: por cada programa GRATIS iil 

HYPER SPORTS ........................ 2.300 ptas. 
TORNADO LOW LEVEL ................. 1.950 ptas. 
EXPLODING FIST]" ..................... 2.300 ptas. 
JUMP JET ............................. 2.495 ptas. 
ZORRO ................................ 2.600 ptas. 
SABREWULF .......................... 1.650 ptas. 
GHOSTBUSTERS ....................... 1.950 ptas. 
GYROSCOPE ........................... 2.300 ptas. 
HYGHWAY ENCOUNTER ................ 1.750 ptas. 
HIGHWAY ENCOUNTER DISCO .......... 3.300 ptas. 

BOLIGRAFO CON RELOJ DE CUARZO!! 

DYNAMITE DAN ....................... 2.100 ptas. 
RAID OVER MOSCOW .................. 2.300 ptas. 
THEY SOLD A MILLION ................. 2.500 ptas. 
FIGHTER PILOT ........................ 1.975 ptas. 
MASTER OF T. LAMP .................. 1.950 ptas. 
NIGHTSHADE .......................... 1.950 ptas. 
HACKER ............................... 1.950 ptas. 
SUPER TEST ........................... 2.300 ptas. 
MAPGAME ............................ 2.700 ptas. 
TONADO LOW LEVEL DISCO ............ 3.300 ptas. 

OYSTICK QUICK SHOTT I1.. 2.295 ptas./ 
OYSTICK QUICK SHOT V .. 2.595 ptas./ 

TAPA METACRILATO PARA / 
TECLADO ii1.900 ptas.!! / 

IMPRESORA MARGARITA / 
ii49.900 ptas. !] 

ii45.900 ptas.!! 
(incluido controlador) 

PC-COMPATIBLE IBM 256 K 
MONITOR FOSFORO VERDE 
2 BOCAS DISKETTE 360 K 
SOLO i i243.900!! 

LAPIZ OPTICO / 
ii4.900 ptas.!! 

CASSETTE ESPECIAL / 
ORDENADOR 5.295 ptas. 

PRECIOS SUPER-EXCEPCIONALES PARA/ 
AMSTRAD CPC-472 Y CPC-6128 / 
iiLLAMANOS, TE ASOMBRARAS!! / 

IMPRESORAS 
ii20% DTO. SOBRE P.V.P.!! 

SINTETIZADOR DE VOZ / / MODULADOR TV / 
AMPLIFICADOR: 8.400 ptas. 
7.900 ptas. 

CINTA C-15 ESPECIAL 
ORDENADOR 85 ptas. 
DISKETTE 3" 990 ptas. 

UNIDAD DE DISCO 3" CON / 
CONTROLADOR: 49.900 ptas. 
/ 

INTERFACE DISCO 
5 1.4" 5.300 ptas. 

Libros: 
Curso autodidctico Basic I ................. 2.525 ptas. 
Curso autodidctico Basic II ................. 2.525 ptas. 
Programando con Amstrad .................. 2.195 ptas. 
Juegos sensacionales Amstrad .............. 1.950 ptas. 
Hacia la Inteligencia Artific .................. 1.295 ptas. 
Mtsica y sonidos con Amstrad .............. 995 ptas. 

Pedidos contra reembolso sin ningOn gasto de envio. Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro 1. C/Duque de Sesto, 50. 28009 Madrid 
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